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Harris RTX 2000"" 16-bft Forth Chip 

•8 or 10 MHz operation and 15 MIPS speed. 
•1-cycle 16x15 = 32-bit muttiply. 

• 1 -cycle 14-pfior(ttzed interrupts, 
•iwo 2S&word stack mwnories. 
•8-channel I/O bus & 3 timer/counteis. 

SC/FOX PCS (Parallel Coprocessor Systemy 

• RTX 2000 industrial PGA CPU; 8 & 10 MHz. 
•System speed options: 8 or 10 MHz, 

•32 KB to 1 MB O-wait-state static RAM. 
•FulHengtti PC/XT/AT plug-in (6-layer) board. 

SC/FOX VME SBC (Single Board Connputer) 
-RTX 20OO industrial PGA CPU; 8, 10. 12 MHz. 
•Bus Master, System Controller, or Bus Slave. 
•Up to 640 KB (Vwatt-state static RAM. 
•233(nm x IGOmnn 6U siz« (&4«^i) board. 

SC/FOX CUB (Single Board CompUtM) 
•RTX 2000 PLCC or 2001 A PLCC chip. 
•System speed optionB: 8, 10, or 12 MHz. 

•32 KB to 256 KB O-wait-state SRAM, 
•lOOmm X 100mm size (4-layer) board. 



SC32"" 32-bit Forth Microprocessor 

• 8 or ID MHz operation and 15 MIPS speed. 

• 1-clock cycle instruction execution. 

• Contiguous 16 GB data and 2 GB code ^ace. 
•Steick depths limited only by avalliMe mamoiy. 
•Bus request/bus grant lines with orvchip tristate. 

SC/FOX SBC32 (Single Board Computer32) 
•32-bit SC32 industrial grade Forth PGA CPU. 
•System speed options; 8 or 10 MHz. 
•^ KB to 512 VB 0-wa)t-stats static RAM. 
•100mm X IGOmm Eurocard size (4-iayer) board. 

SC/FOX PCS32 (Parallel Coprocessor Sys} 
■ 32-bit SC32 industrial grade Forth PGA CPU. 
•System speed opttor%: 8 or 10 MHz. 
•64 KB to 1 MB Owait-state smtic RAM. 
•FuiHength PC/XT/AT plugnn (64ayef) board. 

SC/FOX SBC (Single Board Computer) 
•RTX 2000 industrial grade PGA CPU. 
•System speed optrons: B, 10, or 12 MHz. 

•32 KB to 512 KB O-wart-state static RAM, 
•100mm X leOmm Eurocard size {4-layef) board. 



For additional product information and OEM pricing, please contact us at: 
SlUCON COMPOSERS INC 208 Calltbrnia Avenue, Palo AKo, OA 94306 (415) 322-8763 
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GETB and PUTB Hank Wilkinson 

This articte describes simple, easy-to-use commands for exploring Windows files. While earning 
his teaching certificate far high school physics, the author realized he would w:int to use Forth in 
Windows when teaching. For such routines, the ability to read and write one byte at a time is 
fiindam^tal. And onoe again, Kemighan and Plauger show the way. . . 

One-Screen Unified Control Structure Gordon Ctiarlton 

In contrast to a previously published, everyone-into-the-pool consolidation of control .stnjcture 

concepts, the secretary- orFlG-I'.K presents his single-screen solution He avoids rhe ultitnate 
reductionism in favor of usefulness, packing heaps of fii nc lion aliiy— and surprising efficiency— 
into sixteen lines. dpANS Forth cxintrol structures are discussed for comparison. 

Charles Moore's Fireside Chat C.H. Ting 

In keeping with tradition, Forth's first and foremost pioneer shares recent work, current trains of 
insight, and his computer-language philosophy with the community- He discusses his imptemen- 
tations of OK, new chip development, and his CAD sysiem's design rule checking. 

Numbers C.H. Ting 

The third iiiif>rial in ihi,"; .series accelerates the pace for newcomers by introducing integers and how 
to handle them in l-ortli. Scaling, stacks, logic operators, and loops are discussed in the conteM 
of examples that demonstrate their taste utility. 



pptmiBfiig in BStVJSR-Threaded FwOt 



Charts Curiey 



The author helps intermccfiate Forth proj^nimrncr.^i learn how tc) opiimt/e their applications. These 
higliiy jx)rial)lc Icchniques require onl)- a certain amount of bravado, an analytical approach, and 
knowledge of > our C'PU's ins miction set and your Forth. Once it is built and fine tuned, your 
optimizer should help you to produce faster, more efficient code, 

Math—Who Needs It? Tim Hendtlass 

A thorou^ treatment of integer, double-predsion, fixed-point, and floating-point math. A 
maihematidan's toolbox of code is presented, and tables compare the benefits bestowed and the 
penalties extracted by the rou[i[ie.s. li'.irn to e\ aluate your progranxs' requirements in terms of 
.solutioas with both the desired accuracy and the best performance. 



EdKorlal 

AthtmrtlMers Indmx 
Letters 



.Forth consortium, numeracy, windows, & on the stack. 



. Strength mistaken; Volvos drove tiim to Forth, & Forth's missing link; 
Onbedded systems conference; Kelly's comparisons clarified. 



39 Fast Forthward From on-line discu^ion lo hard-copy correspondence, the Foith 

communiiy is developing a collective vcxoe. Here's a digest of what 

it has said lately. 



41 Volume Xlll Index 
On the Back Burner 
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.A subject index to /'P volume XIIT. Back issues still avaif^iblc! 

. While you are getting the parts and assembling the board described 
in the last issue, our columnist takes time to explain metacompilation 
terminology and to foster on-line interaction. 
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What if Forfl) businesses and associations teamed up to improve general awareness of 
Fonh? llicy'd tiavc to do something ihey all could agree on, benefit from, and contribute 
funds for. Something like a public-service ad for trade joumaJs: "Sure, Forth fosters innovation 
by enabling programmers to explore highly personalized methods of problem solving. Some 
of your best people probably use it already, or know soniciiiing about il — that's no 
coincidence, Bui did you also know that today s I'oith systems tan acconuiiodate die rigorous 
methods and conventions of well-managed programmir^ teams? lhat multi-tasking and 
metacompilation are no problem — never have been — and that Forth can stand alone on its 
own considerable merits or peacefully co-eadst with an operating system? Forth is a frequent 
flyer on die space shuttle, but ^Imj excels in earthbound applications like ob.servatories, 
industrial automation, embedded coniroUcrs, medical/sciendfic instrumentation, and bcnchtop 
environments, not to mention consumer applications. Write or call for a free brochure and 
list of parlidpating businesses. . ." Or, if fimds were scarce, one might only be able t( > prnmi ite 
one of tiiose low-iiow, stick-in-your-mind^ngles: "Go Forth, and >iowrcomputer will ,say OK!" 

* • * 

Do you suffer from innumcracy in Forth, or just need :i touch -up to your understanding 
about how to deal witli digits' Dr. Ting's "Numbers" tutorial L-nci >u rages beginners with the 
power of integer arithmetic. But ifyouneedmorethanalx^ginner'sdosc. Prof Tim Hendtlass' 
"Math — Who Needs It'" will further your understanding of different math packages, and will 
help you to choase the right routines — kindly provided — for the right j(As, (Hint: it's another 
iivstance in which too much power can cormpl performance.) 

Speaking of performance, Windows makes an appearance in this issue. 1-orth for 
Windows has been implemented bytwodevelopersthatwe know of, Laboratory MicrosystHns, 
Inc. and Harvard Soflworks. Bui for the determined, do-it-yourself hacker or the doggedly 
curious, not a lot has been forthcoming. Weil, there's nothing like starting at the begirming, 
which would have lo l:ie reading and writing characters in the Windows format; see Hank 
Wilkinson's "GETD and PUTH" to get started 

One time, a hadter thought Forth had suffered long enough as a skeletal system with Utile 
help and no protection for the naive u,ser. Tlius wa.s lx)rn a newer and better ['orth witfi, among 
other things, a fully fleshed-out, interactive help and error-handling subsystem that relied on 
a separate stack to manage the many s^tem-message strings. It was automatically irwoked by 
the lower-level word HEY! (as in, "Iley, you clutz!") every lime a user did sometliing 
unexpected But the system died in beta testing when a couple of Forth gurus agreed, "Serious 
(xogrammers will find it hard being needled by a HEY ! stack." ISFK: rfm shot, groom} 

* t * 

Jmi a -mmnder... We grt'aily value iIk: cotiiitiued panicijiatioii of eadi reader and MG 
member, so please renew by mail, telephone, or fax at \'our earliest convenience. At tJie same 
time, consklCT giving a subscription lo Forth Dimensions ; o a I >u.siness, library, or colleague. Wc 
will look forward to sharing with ihem — and with you — ihe gcK )d work of the Forth community. 

— Matiin Ouverson 



On the stack... 

A line editor & hiNton' funoicffi 
Forth- user prufiie 
Application success stories 
Forth in .search of work 
integer date calculations 
Build an Hi')51 metacompiler 
ANS Forth; progress, analysis, and impaa 
Forth interface for tfie GPIB 

(general- purpose interfecebus) 
...and much more! 
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AdverUsers Index 

Asian Bu.siness Gonients 40 

Compute- Journal 34 

Forth lastimte 44 

Forth Interest Group 6, centerfold 

Harvard So ft works 17 

laboratory Microsystems 24 

Miller Microcomputer Services 11 

Offeie Fnterprises 20 

Silicon Composers 2 
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liolder. 

The Forth Interest Group 
The Forth Interest Group is Che 
association of programmers, man- 
agers, and engineers who create 
practical, Foftb-based sdultons to 
real-wcxtd needs. Many rcseaich 
haLtdwarc and softwatedesigns that 
will advance the general ^ce of 
the an. FIG provides a dlmate of 
intellectual excharige and benefiu 
intended lo assist each oT its metn- 
tiers. Publications, conferences, 
seminars, telecotntnunications, and 
area chapter meetings are among 
its activities. 

'Forib Dimemitms OSSN 0684- 
0822) is published bimonthly for 
S'50/<6/52 per year by ilje Forth 
Interest Croup, 1^30 S. Bascom 
Ave., SuitP ri, Sanjose, CA 95128. 
Seconded ass posiage paid at San 
Jtisc, CA. J'OS'fMASTEH: Send ad- 
drtss changes to Forth DimensSons, 
P.O. Box 21 M, Oaldand, CA 9462! ." 
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Conference Isee kuer belowj. 




Lstters to the Editor—and to your fellow readers— are always wetcxxne. 
Respond to articles, describe your latest projects, ask for Inpul, advise 
the Forth coinniunity, or simply share a recnn! insight. Code is also 
welcome, butisoplkmal. Letters maybe edited for clarity and lertgth. We 
wartf lb hear from you! 



Strength Mistaken 

Dear Fxlitor, 

"A Ixjsson in Economics' by Russell T,. Harris COn the Back 
riurncr, FD XIV/5) was a wc lronic piece of adciilional 
ammunition I'll be able to use the next time I'm nagged to use 
a DOS machine for an embedded or instrument-control 
application Mr. Manis hits sqiiansly on several key problems 
that crouch waitingtopounoeonthenaivel BM PC e n thusiast 
who falls for the mirage. 

On another note, along with Walter J. Rottenkolber, 
whose letter to the editor appeared in the same issue, I too 
have to disagree with Mike I'iola on his article (FD XIV/ -i) 
about styling Forth to preserve the "expressiveness" of C. 

Part of Forth's strength wfll always lie in its simplicity. 
However, this same simplicity is wrongly viewed as a 
weakness when it lets a programmer write unreadable code. 
The lack of expressiveness Eloia refers to (that is, the lack of 
clarity as to where the stack cells come from, wh:n ihey are, 
and what consumes ihem) is due to how the words arc 
arranged in ihe source code just as much as lo pcxjr 
commenting; and yet, so often I ,see code written such that 
the breaks between lines, the space between words, and the 
words' starting columns have almast notJiing to do with what 
the code is supposed to do, I even see things like a begin 
in the middle of a line, with its corresponding until buried 
somewhere in liie middle of another line and starting in a 
different column. Mr, Elola's indenting may help, but I fear 
this will constitute o\«ruse of indenting, defeating much of 
the purpxise of indenting, which is to make structures and 
program llow more obvious. 

I'm tempted to write an article about writing readable 
code. I believe Mr. Elola has correctly identified a common 
problem, What I d<jii'i agree witli is Uiat it's a weakness of 
Forth itself There arc several things about C that I hojx; 1 have 
ieit in my past for the most part, and those include piles of 
parentheses and punctuation. 

A tJiird subject matter — What's happening wiili tliosc 
ultra-fast stack microprocessors I hear a Utlc bit about liere 
and there? One blurb 1 read recently died 100+ MIPs (and 
Forth MIPs, at tliat) a rely.Livdy low cost. "Ihis is certainly 
some tiling i would expect to .see get a lot of attention in EDN, 
ComptUer Des^n, and other trade magazines; yet I haven't 
.seen a thing iti (hose. 

t was glad to .sec I'lC wtxjki Ix: .it the i;mlx;ddcd Systems 
Fortti Dimensions 



Sincerely, 
Gartii Wilson 
11123 Dicky Street 
Whiukir, California 90606 

'/hanks for your commcnfs, Canh. IHease do write thai 
article abotu readabin Forth code— it coruinties to be impor- 
tant. The most thorough trecOrnerairecaUteas by KintHarris, 
who<:t •iKijK'rafxnil cfkiingc(mi;cntions was prC'Sicn tcdswera I 
years ago at a FORM!, con/crencej and FIG disirihuies a 
cumuktiive index to FD articles, which contains some Ter- 
ences to Forth slylr (sea the Jir;t Ivjn items on the mailorder 
form). Bia, evidenced by much Forth code, those idca-^ 
either were not distrifnited tucil ortvere not adopted widely for 
mmereason. Yourjurthertreatmentqfthesut^ea might he^. 
As to stack-oriented CPUs, tuewdamie press releases about 
': n'ol products, articles Ijy cLfjdofxfs, and the experiences of 
users — aswouid, Jpresume, other publications like those ycu 
mention. Mecmti^Ue, checkout the "More on Forth Et^ines" 
series on the FIG maU-orderJorm in this m^azine. — Ed. 

Volros Drove Him to Forth, 
& Forth's Missing link 

i have just returned from the Silicon Valley I-IG Chapter 
• meeting — have not missed more than four or five of them 
since June 23, 19S0. when I first signed up. I enjoyed a chat 
with John and Frank Hall during die lunch break, and I want 
to follow up with the note I said I wanted to write to Rirth 
Dimensions. 

I am a mechanical engineer, have been designing cranes 

and heavy machines' for 30 years. I do not .sing and dance 
like Leo Brodic, but 1 do drive old Volvos, and that is how 
I came to Itnow Forth. You see, my wife and I started in 
computers when we bought our first Apple ITc; we started to 
look into the computer seaion at the library more often, and 
that Ls where, one day in April of 1990, the face of young Leo 
appeared on page v of the first edition of Starting Forth. I 
believe I had heard about Foitii before that, probably 
through a Harris ad in one of the engineering trade maga- 
zines, and, seeing that a fellow who liked driving classic 
Volvos had witten a book about it, I figured that Forth might 
not be all too bad. 

Well, tiiere is a long story of struggle, frustration, feelings 
of futility and defeat, but, even though I have not produced 
any masterpieces of Forth progra mniing, I go to the meetings, 
1 enjoy your magazine, I [Mt;^ch I i;iUi. 1 liave even gone to 
the torture of taking a C cla.ss at tiie local college, to see how 
bad things can be on the oilier side. 

'ITiere are two reasons for me wanting to write this note: 

I ■ n St, 1 w is 1 1 to tl 1 ai\ k y ou fo r pu bl ish i ng Olaf Medi ng's li ne 
article, "Forth- Based Message Service." 1 understood it, liked 
it, and would like to sec more articles with the same Fogg 
Index (or slKiuld 1 .say "Fig Index?"). I have a problem with 
I lie arcane and esoteric articles that remind me of my early 
Struggles with De Bello Gallico, organic chemistry, laplace 
transfomis, etc. 

Secondly, I have to voice my concern tiiat theie i,S 
5 January f993February 



■ Write about libraries, 
source management, 
user interfaces, 
platfornrVmachine/ 
kernel independence, 
topics suggested 
for the upcoming 
FORlvlL conference, 
or any ottier subjects 
related to the theme. 



somelhing missinginlhe Forth 
commuijily that would attract 
newcomers, or I woutci not 
Still be the novice of the group 
almost three ycais after I joined 
Itseems iJ^twe can cater only 
to the seasoned ForLli psu- 
giammeis, perhaps to some 
degree to other programmers, 
butbeginners cannol find any 
"Forth kits," as I would like to 
call ttiem, thai arc incx[x*iv 
sive, readily available, work, 
have good documentation, 
and allow one lo experiment 
and create without frustraiion. 
I think there is a need for a 
Forth interprf'lf'r package dial 
can compete at least with the; 
Hires of GWBasic, in terms of 
size, availability, documenta- 
tion, graptiics, and floating- 
point math. Have I missed it 
somewhere alonig the way? 

Sincerely, 
Henry Vinerts 
36139 Chelsea Drive 
Newark, OA. 94560 

Erratum 

Ok^ Meding, author of kist 
issue's "Forth-based Mes.'^age 
Service," is employed by 
Amtelco, 48O0 Curtin Drive, 
McFarlatid, Wisconsin 5^558; 
telephone 608-838-4194. The 
article itm originally titled 'To 
Boldly Go Forth Where No One 
Has Gone Before." 



Embedded Systems 

Conference 
Dear Mr. Ouveison, 

I had the opportunity to 

browse the displays at the 
recent Embedded Systems Conference and see firsthand tfve 
hardware and software available. I was surprised at the 
number ol sizzling, coJor-windowed, integrated C/C++ pro- 
gramming systems. Even ilie purveyors of Ada, the number 
two language there, tended to be a bit defensive. 'Ilie once- 
ubiquitous BASIC was represented by only a couple of 
vendors. And Forth had only the Forth Interest Group waving 
the banner-— a lonely island in ihc C's. Is ihe real world trying 
to tell us something? 

These C compilers integrate an editor, syntax checker, 
compiler, and debugger thai can work witli either C or 
assembly source. Watdi iixpressions let you run C functions 
or display C variables interactively. In other words, these C 
January 1993 February 
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^ Uontest tor articsi^ on me suDiect or 

Development 
Environments 



Cash awands and publication 
for the articles judged best. 

$500 — 1st place 
$ 2 50 — 2nd place 
$100 — 3rd place 



PAPERS 



Entries will be refereKl. Papers to be presented st FOPML 
are eligible, butaseparate, completecopymustbe received 
at our editorial office by the contest (not FORM, 's) deadline. 

Mail a complete hard copy and a diskette 
(Macintosh 800K or PC preferred) to: 

The Editor, Forth Dimensions 
P.O. Box 2154 
Oakland. California 94621 

■ DsadllM ffarcontestsnttfes Is August 1 , 1903. 



systems seem to have a programming environment once 
exclusive to Forth, It would be interesting if someone familiar 

with botli the new compilers and Forth would compare 
tliem, especially regarding programming ease and produc- 
livily. 

Progmnuning controllers with the power systems would 
set you back $12,000 for software and hardware, and to this 
you would have to add a hefty computer. Most of the 
vendors' demonstrations used Sun worksiaUons. But at the 
otherend of the scale, ZWorld offers a line of Z180 aaniroUcrs 
designed tD be programmed with their $195 C compiler, 
which runs on a PC. 

(Continued on page 16.) 
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HS/FoRTu, Windows 



GETB and 
PUTS 

Hank V\^ll<inson 
Greensboiv, North Carolina 



Working on my teaching ccrlificaic for high school 
physics at the UnivereiEy of North Carolina at Greensboro, it 
hit me that I want to use Foith in Windows when I teach. 

Since I earned my B. S. Physics previously at Giiil ft >rd O >Ilegc 
(also Greensboro), only a year's study remains for my 
certification. 'ITiLs article describes simple commandls found 
useful exploring Windows' files. 

VSTiat do I mean by "use Forth in Windows"? Here is what 
I think 1 mcrm: 

a) load Forili code contained in *.WRI files 

b) write from Forth into '.WRI fil^ 

c) draw from T-orth into '.BMP files 

d) tx; "in" Wi licit iw.s when in Forth 

Noie thai vectoring KEY and EMIT will not achieve any 
of the above goals. The first three goals require knowledge 
of the Windows data files. Simply put, the last goal requires 
knowledge of bow Windows works. Frankly, a vendor could 
easily solve my dilemma. 

Meanwhile, concepts described in Software Tools 
QCemlghan and Plaugei^ Addison-Wesley, 1976) help. Analo- 
gous to K&P's getc and pule, I have made GETB and PUTB. 
GETB reads exactly one byte from a file and leaves it on the 
Stack. PUTB writes one byte from the stack into a file. 

So you may follow, here is my system. My computer is a 
VSl I'C '286 name -brand "compatible," witli VGA, 40- meg 
hard drive, both a 5.25" and a 3.5" floppy, a mouse, HP 
DeskJet 5tX), a modem, and four megs, of memory. 1 have 
DOS 5, Windows 3.1, and IlS.''I'orth (regular — i.e., uses 
segmented rncmory). 

I learned of HS/Forth and VARs in this journal, so wiU only 
review them. A VAR is a data structure with the behavior of 
both VARIABLES and CONSTANTS, while faster than either. 
CONSTANT-iike, a VAR's value goes to the stack upon use. 
VARI2ffiIiE-Uke, the tor's new value comes from the stack 
by placing I S lx;fore the use of the var. Later uses of the Var 
return its latest value. 

Refer to the code at the end of th!.s article. First we define 
TRUE and FALSE. Next, the handle and cnd-of-file-flag 
containers appear. Tnitiali7tng the file's handle to TRUE (as 
opposed to FALSf) Will not rnnfu.'^e an imopencd file witti 
the handle for the keyboard. For the end-of-file flag, logic 
dictates an unopened file ha.^ reached its end 

Forth Dimensions 



IIS/Forth's MS-DOS system interface maybe set to abort 
witli a mes,sagc upon error condition (FATAL), or pass tile 
crrtjr un u^Ji^ uRM). The words defined here assume HS/ 
F'oah will ABORT, giving immediate feedback 

To open a file for reading, w; pass the address of the file's 
pathXname to the IIS/Forth word OPEH-R wrapped inside 
OPEN-GETB. Any error leaves G-H and G-EOF set TRtJE. 
If successfully q^ened, G-H receives the file's handle and 
G-EOF receives false. 

To close the file, l lS/Forth's ci.oseh is used, Tlie file's 
handle go^ on the stac:k frji closeh, which ABORTS upon 
any error condition. In that case, the VARs donotgettouched. 
Ofherwise, CLOSE-GETB doses the file and sete G-H and 
G-EOF to TRUE, 

GET-BUF serves as the buffer for MS-DOS to put the byte 
read. HS/Forth's READH needs the memory segment, offeet, 
number of bytes to read, and the handle. GEtb encap.'vulates 
f these functions and sets G-EOF. Notice that a successful read 
will return one byte. Beading past the end of file returns a 
zero (FALSE), and sets g-eof true 

Using GETB on, say, "c:Vpa[h\ filename. ext. "we first open 
the file. From die command line, 

$" c:\path\filenarae.ext'' OPEN-GETB fEntert 

does tfiat. If successful, 
GETB . lEnier] 

I would display the byte's value, while 
GETB EMIT [Enter] 

would display the byte as an ASCII cfiaracter. To determine 
if a byte read is valid, consider this code. 
GETB G-EOF . tErtor] 

A /■e-ro (false) displayed indicates a valid byte, while 
-1 (true) shows the byte did not actually come from the file. 
Onoe finished playir^ we issue: 
CLOSE-GETS lEnterl 

i .\ow (Ind the example code alter the definition of getb. 

A double number DVAR COUNTER holds a count of the 
i number of bytes in a file. The routine COUNT-BYTES expects 
an opened file and proceeds countii^g bytes tmtil G-EOF 
becomes TRUE. 

Notice the lest fertile end of file inside the loop yields zero 
for an empty file or an unowned file. At any rate, COtJNT- 
BYTES counts ifie bytes, while COtHSlT-FlLE performs 
administration. 

Writing In a file is slightly simpler than reading. We only 
needaVARtoh()ldili(.:P-H(puthandle).OPEN-POT'B makes 
use of HS/ForiJi's MKFILE, which creates or erases an 
existing file. Hie handle passed by MKFILE goes into P-H. 
CLOSE-PUTB is analogous to CLOSE-GETB. 
PUTB Stores [tic i)y[e on the .stack in ihe PUT-BUF and 
pa-s-ses the memory segment, offset, byte cxjunt, and handle 
to WRITER, wtiich returns the number of bytes written. 
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Testing the actual number oi byles written serves as error 
checking. 

For an escample using PUTS, we show copying a file. 
Buffers for filenames make the process easier. The names 

GB$ andPB5 allow quick typing In COPY -if ilk, [he user is 
shown the path\filenatnes from both buffers. Either a "Y" or 
"y" are required for copying lo take place. 

With a proper response, the corresponding files arc 
opened and ihe copying^ — ^byie by byte — Ixjgiris. As soon as 
the end-of-file flag is found true, the copying stops and the 
files are dosed. During copying, any key hit slops the 
process. 

These routines arc simple to use and understand, and arc 
robust enough for use from the command line. Their 
simplicity aUows easy modification. For something to get into 
use quickly, use them as is. 

From time to time, the need for fa,ster fsle-handling code 
becomes apparent. In that case, use larger buffers and design 
buffer handling (I have .spent more lime optimizing code 
than I have saved by executing optimising code. Routine.? 
shown here reflect that experience) 

GETB and PUTB form crucial elements of routines I used 
exploring Windows' files. One routine counts the frequency 
of bytes. Another finds the occurrence of arbitrary byte 
patterns. A third routine creates a file dump. The ability to 
read and write one byvs at a time is lundainental. 
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VAR FALSE 
-1 VftR TRUE 

TlitlF. VAR G-H \ Get-Handle storage 
TRUE VAR G-EOF \ Get End Of File flag 

\ TRUE = EOF, FALSE = not: EOF 

\ use: S" \path\ filename" OPEN-GETB 
: OPBN-GETB ( address — ] 

OPEN-R ( addr ~ handle ) 

IS G-H 

FALSE IS G-EOF ; 

\ use: CLOSE -GETB 

: CLOSB-GETB ( — ) 

G-H CLOSEH 

TRUE IS G-H 

TRUE IS G-EOF ; 

CRESTE GET-BUF 1 ALLOT \ 1 byte buffer 
\ us«: GETB 

: GETB { ~ byte ) 

\ G-EOF TRUE, invalid file byte 

\ G-EOF FALSE, valid file byte 
LISTS g GET-BUF 1 G-H READH 

0« IP TRUE IS G-BCr FALSE EXIT THEN \ file empty 
GEf-BDF ce ; 

S->D DVAR COOMTER 

\ uses COUNT-BYTES 

( file must be open, counter cleared 
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: COUNT-BYTES ( ~ ) 

B!;GIN 
GETB DROP 

G-EOF FALSE = WHILF. \ ie., not end of file 
COUNTiiR 1 Mi- IS COUNTER 
?TERMIHAL IF EXIT THEN 
REPEAT ; 

\ use: $" \path\fllen3tne.ext" COUNT-FILE U. 
: CCUCT-B'IIjE ( .-, -- d ) 

\ r; - of (■.•■;<■■.. ;if t20i;nl.«d ;;;..'-;rig tO file's \pdth\name 

CR ." Csjnr.ij^q by^es in " DUP COUNT TYPE CR 

." Hie ar.y key to stop." CR 

:s tOLNTER \ clear count to start 

OPEtJ-c;- :'3 
cn;;vT-JiYTES 

CLOSE -GETB 
COUNTER ; 

TRUE VAR P-H \ Get -Handle storage 

\ JSC: S" \path\name" OPEN-PUTB 
: OPEN-PUTB ( address — ) 
MKFILE ( addr — handle ) 

IS P-H ; 

\ use: CLOSE-PUTB 

; ci.u;i;:-i'UTb ( — ) 

P-H CLOSEH 

TRUE IS P-H ; 

CREATE PUT-BUF 1 ALLOT \ 1 byte buffer 

\ i:3c: i'UTri ( writes to file ) 
: PUTB ( byte — ) 

PUT-But-- c: 

LISTS e PUT-BUF 1 P-H WRITEH 

0= IF ." Write error! ■■ EXIT THEN ; 

\ FILE NAME HOLDERS 

CREATE GB$ 128 ALLOT \ GETB file name 
CREATE PBS 128 ALLOT \ PUTB file name 

\ initia'ize filenames to something 
S" GETPUT.FTH"' GBS 5! 
S" XX.PTH" PBS S! 

V use; { filenames strirvg variable already set ) 

\ COPY-FILE 

: COPY-FILE { — > 

CR 

Copying file narrcd " GB$ S, 
CR into file named " PB$ 5. 

CR ." Is this correct? (Y/y) " 

KEY ASCII Y OVER = SWAP ASCII y - OR 
IF ." Okay, we're copying. " 
ELSE Not Copying" CR EXIT THEN 
CR Hit any key to abort COPY-FILE." 
CR 

GB$ OPBH-GETB 
PBS OPEN-PUTB 

BEGIN 
GETB 

G-EOF FALSE = HUILE 
PUTB 

?TERMIHAL IF ." Qultlng, so delete partial file." CR 
CLOSE-POTB CLOSE-GETB EXIT THEN 

REPEAT 

DROP \ drop spurious byte read wtion fiJc was empty 

Cf.OSE-PUTB 

CLOSE-GRTB ; 

Forth Dimensions 



One-Scteen Unified 
Control Structute 



Gordon Chariton 
Hayes, Middles&(, U.K. 

This article was prompted by Kouitis Giorgio's Curfy 
Control Structure Sei, Giorgio stated that his intenijon was to 
include eveiy good idea he had come across. Thb tu rned om 
ID be a good many good ideas, so Giorgio im provided the 
archetypal Fat Fofther*s solution. Although I am not a devout 
minifnalist, 1 do concur with the principal iliat less is more. 
Therefore I pose the question, What is the smallest group of 
words that constitutes a workable control set' 

Three Non-Solutions 

The ultimate reductionist solution ts ?GOTO. This is not a 
solution, as it is unstructured. It is demonstrable that a leTo- 
tripping FOR NEXT can be coerced into sufficing, at the cost 
of ouirageous ineftleiency and cofnplcxity. '[his is not a 
viable solution. One can also get by with IF, THEN, and 
BECURSE. Although popular mth the AI community, this 
solmion d(x;s have certain problems with efficiency and 
readability. Therefore, this is not a solution either. 

Tlie Solixtion 

Although three words do not cut the mustard, we will see 
iJiat four words are enough. In feet, I wiU introdu cc two extra 
ones, for convenierKe and to remove a slight inefficiency. 
The Unified Control Structure CUCS) is derived from two 

previous proposals which do not apfx:ar in Ciit >rgi( )'s compre- 
hensive bibliography; ihey are the iiainswonii Extended 
Case and the Universal Delimiter. 

One Stireen 

^licii commencing a projea, I wiUofien attempt to come 
up with a solution that Cts within one screen, 'llus is a very 
rigid discipline and focus^ the mind excellently. A lot has to 
gi ve i n compressing code into a s pa c c w i th a n absol u ic limit 
of one thousand and twenty four cliaracters. Certainly, neat 
pre.sentation goes out the window, along with potentially 
meaningful names, stack comments, and even ilie lille line. | 
Naturally, one tries to retain a.s many of these as possible. ! 
Moic impoftandy, everything that i& trivial or superfluous has 
to be stripped out mercilessly. This leaves only the core of the 
program, its essence. Divining the e,s.sence of a problem is the 
beginning of understanding. 

Normally I would throw away the one-saecn veisioo 



once it was stable, and start coding a fuller solution afresh. 
As the primary design criterion here is brevity, I present the 
one-screen version in all its muck and glory. 

Comparison 

Although prompted by the Curly Control Set, I will 
compare UCS to the ANSI control set, as I do not wish to do 
Gicugjo any injustices by errone<xisly criticizing a wordset 
that I am not femiliar wi^. 

Syntax 

A control structure starts with beg i N and ends with either 
END or AGAIN. Within a structure, any number of WHENs may 
appear. WHEN mast tx; paired with END or AGAIN. WHEN 
substructures may not be nested begin struaures, how- 
ever, maybe tiested. WHII.E is functionally equiralent to 0= 
WHEN END, and should be treated as a WHEN pair for syntax 
purposes. *ihc same consideraiions apply to UNTIL, which 
is equivalent to 0= WHEN AGAIN. 

Semantics 

BEGIN has no run-dme action, it simply marks the 
beginning of a structure. The END that pairs up with BEGIN 
equally has no mn-time action. AGAIN, whether paired with 
BEGIN or WHEN', gives an unconditional branch to just after 
BEGIN. END, when paired with WHEN, gives an unconditional 
brandi to just afler the fmal END or AGAIN. WHEN takes a flag. 
On false, it skips to jast after its closing END or AGAIN. On 
true, execution continues secjueniially. As stated above, 
WHILE has the same action as 0= WHEN END, but is more 
cHicient On false, it skips lo just after the Qnai END or AGAIN. 
Otherwise execution continues sequentially. Similarly, UNTIL 
is more eirideiit liian 0= WHEN AGAIN. Execution continues 
just after BEGIN on false, and sequentially otherwise. 

j Usage 

I Usage is compared lo the proposed ANSI control set on 
screens two and three of the accompanying listing , begin 
AGAIN is the same with both ANSI and UCS, BEGIN AGAIN 
is one of two basic stnicturesinUCS. The other is BEG I N END . 
BEGIN END has no eciuivalent in .\.\SI It does not affect tlie 
flow of control at all and is, llierefore, the structural equiva- 
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Figure One. 
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Figure Two. j 
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lent cf a no-op. NcMietheltss, it does have a use. When one 
has chosen not to factor out a long definition, it serves to 
delink logically distina sections of code for readability 

As with all variations on ICS, the simple WHILE loop is 

an extension of one oriheba.<;ic structures, in this case BEGIN 
AGAIN, 'ilii.s is simpler than ANSI, which requin^ a new word 
to be introduced: repeat. 

The simple UNT IL. loop loses out in UCS for complexity, 
requiring a terminating END, 

IF and IF ELSE are notably worse in 1X5, although one 
small redeem! rig feature exisis. 'Ihe begin can be used lo 
delimit the test preoeding the WHILE or WHEN, in the same 
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way that CASE is used. O.e., one writes CASE KEY 6 5 OF etc. 
instead of the equivaieiit KEY CASE 65 OF etc.) 

The UCS equivalent of the CASE statement is rather more 
giNieral, and is better compared to the USP COND or the 
Occam extended if. The cxtr.i code in the illvistration (the 
DtJPs, etc.) shows what typically ti.'OL!ld l3e required to 
simulate an Taker CASE. 

On the final screen is what may be deemed advanced 
usage of the ANSI set. The first .stnictureLs more understand- 
able in tx;s, as the exit conditions (a) and (b) are positioned 
next to the decision to branch, rather than at the end of the 
stracture in reverse order (!). It is, however, less efficient, as 
leaving \ia condition (a) incurs an overhead of one uncon- 
ditional forward branch in UCS. Ciiven that this only occurs 
with the first exit path, no matter how many WHENs are 
pre.sent, this is not loo detrimental. 

A.\SI, on the other hand, starts lo suOer as the number of 
WHILES increases, as one hops and skips out of terminating 
ELSE ... THEN ELSE ... THENs. It is perfectly possible lo use 
WHILE ... ELSE in ANSI to avoid this but, as I have never seen 
the construct published, mu.st assume Oiat ihi.s is not typical 
usage. 'I'he 0=s are irrelevant, and are merely ttiere to indicate 
that the logic of WHEN is reversed with respect lo WHILE. 
(while ELSE, in ANSI, would also demand reversed logic 
to while.) 

The AN'Sl rationale Oit least the first draft proposal) stales, 
The use of more than one additional while is possible but 
not common." This is convenient, as two exits represents 
alxjiJl I he limit of legibility. This i.s ilki.s(rLUed with the final 
example, which is less than crystal dear in ANSI. On case you 
were wondering, if the first WHILE succeeds, the section 

labeled (a) is executed and 
the structure exited. If the 
second WHTIJE succeeds, Cb) 
is excailcd and the struc- 
ture left. If tlie ttiird, then 
section (c) runs and execu- 
tioncontinues at die BEGDIs. 
If none succeed, execution 
continues at the BEGINS.) 
This took some time to con- 
struct, whereas the UCS 
equivalent was trivial. L'CS 
suffers no Lnaease in com- 
plexity as the number of 
WHEt%inaeascs.Perhapsthe 
use of more than one addi- 
tional WHi le would be more 
common, if not for Us com- 
plexity and unreadability. 

jVNSI is complete, in that 
it can be used lo create any 
conceivable system of 
branches, but there con le s a 
point when GOTOs would 
be more comprehensible. 
UCS, on the other Iiand, is 
not complete, but does de- 
liver a useful subset without 
Forth Dimensions 
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inaeasing complexity. It is not compatible with previous 
systems, but the effects of maimaining comp^nibility at any 
cost are amply illustrated by the development of the IBM PC. 
You pays your money and you takes your choice. 

Assumptions 

In order to fit the code into one .screen, certain assump- 
tions have been made. It is assumed that the words BRANCH 
and TBRSNCH are present, and that Siey expect the followiry; 
ceU in the cods spacietornntainanabsoluteaddnsssrorthem 
to branch to. Furthermore, it is assumed that the code and data 
space are contiguous, so that it is m&inii^ful touse HERE and 
, (comma) to provide these branch addresse.s. Finally, it is 
assumed that the compilation stack is tlie data stack. 

Stack Comments 

Although I have been able to retai n stadt comments i n the 

spat e! available, lhe\' arc rather terse and deserve .some 
explanation, "a" represents an address and "e" an execution 
token. Where a word finishes with EXECUTE, the stack 
comment assumes that the EXECUTEld word has no stack 
effect. The comments for itMEDlATE words show the 
compile-tinie stack effects only. At mn time, the words 
BEGIN, END, and AGAIN have no stack effect, and WHEN, 
WHILE, and UNTIL absorb a flag. 
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Overloading 

In order to reduce the number orstmcture words, AGAIN 
and END are overloaded, «idi having two distinct operations 

dcjxrnding on context TWs is achieved b>- using veaorcd 
execution. BEGIN sets &ie eicecution vectors ' E and ' A to 
the actions associated to dosing a BEGIN, B-END, and 
B- AGAIN. WHEN sets them to W-END and W- AGAIN. 'When 
a WHEN is closed, 'E and 'A are reset — by W-END or 
W-AGAIN — to B-END and B-AGAIN, respectively. To allow 
for nesting, tlie contents of ' E and ' A are saved on the stack 
by BEGIN and are restored when die structure is cxxnplete. 

Resolving Backwjird Reterences 

The address in [he code being compiled when BEGIN is 
encountered is held in a variable B-H CbegIN-HERe) so that 
it is accessible at all times, and backward references can be 
resolved when they are encountered. To allow for nesting, 
the contents of B-H are saved on the stack by BEGIN and are 
restored when die stmoure is complete. 

Resolving Forward References 

'Ihcre ire [wo tvpes of forward re ferenot's. '[lie simpler is 
iJiat created by when. 'I'he address to be filled is left on top of 
the stadc, and is lesolvedby the when's dosing partner. 'When 
the partner is END, a forward reference of the second type is 
made. This cannot be resolved until the final END or AGAIN 
is reached. Each of these forward references 
is covered on the stack by an elocution 
token, to fomi part of the executable history. 
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The Executable History 

As a control sttucture is written into the 
code space, a program is built up on the 
stack, which be executed when the 
control strurture is completed. BEGIN lays 
down the Hrsi part of this program, which 
is railed FINISH and will be the last part 
to be executed before control is handed 
back to the compiler. Ithas three data items 
associated with it, which are the original 
values of the three variables. FINISH 
restores ihse, aUon^ng nestirig to vmtk. 
Above FINISH may come zeio or moie 
E-RES's, whose function is to resolve one 
unnesolvcd forsvaid reference each. E-RES 
forces execution of the stack program to 
continue, by ending with EXECUTE, llie 
final END or AGAIN initiates execution by 
also ending with EXECUTE, 
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Varia ble ' E ; 

Elocution vector. Contains execution token for END. 
Variable ' A ; 

Execution veaor. Contains execution token for AGAIN. 
Variable B-H ; 

Contains HERE when BEGIN W3S executed. 
Colon FINISH (ee a) ; 

Executable history word. Restores variabies, terminates 
history execution. 

Colon E-FES C e a) ; 

Ei^cutable history word. Resolves forward branch from 
W-END, continue history execution. 

Colon B-END ( e) ; 

Vector word. Called by END wbea paired with BEGIN, 
initiates history execution. 

Coion B-AGAIN C c) ; 

Vector word. Called by AGAIN when paired with BEGIN, 
compiles branch to BEGIN, initiates history execution. 

Colon B-E, A ( ) ; 

Sets execution vectors to actions associated witli BEGIN. 
Colon W~END C a--a e) ; 

Vector word. Called by end when paired with WHEN. 
Resolves WHEN's forward branch. Compiles branch to be 
resolved during history execution, and places HERE and 
E-RES on stack. Calls B-E, h. 

Colon W-AGAIN ( a--a e) ; 

Vector wend. Called by AGAIN when paired with WHEN. 
Resolves WHEN's forward branch. Compiles branch to 
BEGIN. Calls B-E, A. 

Colon BEGIN ( -e e a c) ; 

User word C ). Saves variables on stack, places FINISH on 
stack tobe executed aterid of history execution. Calls B-E, A. 

Colon WHEN ( -a) ; 

User wortl ( Q. t^ompilcs conditional forward branch and 
leaves address to be resolved on stack. Sets execution veaors 
to WHEN action. 

Colon END C ) ; 

User word C ). Action spedfied by 'E. 

Colon AGAIN C ) ; 

User word ( ). Action specified by 'A. 
Colon UNTIL ( ) i 

U.<5er word ( 0. Compiles conditional branch to BEGIN. 
Colon WHILE ( -a e) ; 

\ !,ser word C f). Compiles conditional branch to be resolved 
during history execution. Places HERE and E-RES on stack 



Compiler Security 

Compiler securit>' is not induded in the ccKh prcsciitcti 
licit;, Ix: cause of space coiisideratioi^^. jii.iiiJiiid 1 1 -1.411111 jues 
can be u,scd, and the syntax is sufTicienlly simple and rigid llial 
all illegal constructs are readily detected. Overloading END and 
AdaiN leduoes the nuiriber of passible illegal ctHistracts. 

Extensions 

The use of the executable history technique means that 

any extension may added withovit altering existing code. 
Certain constnicts arc poorly named and would benefit from 
synonyms. Unfortunately, IF CELSE)THENwouldhavetobe 
quite smart, and probably could not be written in terms of 
existing words. I have not attempted to incorporate counted 
loops, as I have certain opinions on this subject which would 
dtstraaftom the intent of this artide. Best to let sleeping dogs 
lie, as the old saw goes. 

Conclusion 

At its most spartan, a powerful control set can be 
constructed out of ibu r words (UNT iLandWHiLEdonot add 
any functionality to the word set). .More importantly, tiie 
dispora^ control structures can be unified into a single 
adaptive structure, 'ihe prices to pay are non-compauTjility 
and overioadcd operators. 

References 

Kourtis Gicngio's Curly Control Set (brilliant name, reminds 
me of a British advertising slogan: "Watch out, tlx;y taste 
curiy!") appears in Forth Dimensions, XIII/6 and XIV/ 1. 

The FOR NEXT demonstration tefencd to in the second 
paragraph was made in I-orihwrUe is.suo 47, in the article 
about loopy, a minimal subset language. ForthwrUe is the 
FIG-UK chapter magazine. 

'fheone-screcndiscipline was suggested by Mike Lake in 
Forth Dimensions, XIil/3. 

Chris Hainsworth's Extended Case appears in Fojtbwrite 
issue 40. Tliis gave the basic structure of UCS. 

The Universal Delimiter appears in ForthwrUe issue 53 
and shows an extension of the techniques used in L'CS, 

The conq>arison with ANSI is based on Wil Baden's 
marvelous pieces iniheFOl&fLProceedinf^s, particularly '89 
and '9Q. 

My opinion of DO LOOP is expressed in more issues of 
ForthwrUe than I care to mention. Of particular relevance 

here is issue 47, which rnelds it iiiU) the HainsworthsLructure; 
and issue 58, which proposes a radical rcfactoring. 



Gordon Charlton isa parl-liine hobbyisl progranimor and (ulMimc hcuso spouso 
who migfalcd 10 Foilh (rom LISP and F*;it.c;-il afloi a Turkish Iriorid lold him tlial 
Forth was a wetd language and that he would consequently like it Ha was right. 
Gordbn is also, probabty. the worlcTGonly Loopy programmer. He is currenlly Ihe 
Evonls and Meetings Srjcrolaryol FIG-UK, andconlribules regularly to Forihviritc. 
His last major fjrojGcl was a string-pattern matcher which was presented at 
euroFORULs '91 and '92, if anyorw can provide a rigorous descriplbfi of the 
Ftatcliffe-Obcrshdp algorithm, he would be pleased to hear from thorn. 



January 1993 February 



12 



Forth Dirrensions 



One-Screen Unified Control Structure 



\ One-Screen Unified Control Structure G Charlton 27Sep92 

variable 'E variable 'A variable B-H 
: FINISH ( a a a) b-h ! 'e ! 'a ! ; 

: E-RES ( e a) here swap ! execute ; : B-END ( e) execute ; 

: B-AGAIN ( e> coirpilR branch b-h (? , execute ; 

: B-E,A ['] b-end 'e ! ['] b-again 'a ! ; 

: W-END { a-a e) compile branch here , here rot ! 

['] e-res b-e,a ; 
: W-AGAIN ( a) conqpile branch b-h @ , here swap ! b-e,a ; 
: BEGIN ( -a e> 'a 6 'eg b-h g here b-h ! ['] finish 

b-e,a ; iitinediate 
: WHEN < -a) compile ?brancb here , ['] w-end 'e ! 

['] w-again 'a ! ; immediate 
T END 'e @ execute ; immediate : AGAIN 'a @ execute ; immediate 
; UNTIL compile ?branch b-h g , ; immediate 
: WHILE { -a e) conpile ?branoh here , ['] e-res ; immediate 



\ Screen 2 

\ One-Screen Unified Control structure — Usage 



BEGIN 
BEGIN 
BEGIN 
IF . . . 
IF . ,. 
CASE . 



, . . AGAIN 

. raiLE . 

. . . UNTIL 

THEN 

ELSE . . . THEN 



OF . . . ENDOF 
OF . . . ENDOF 
ENDCASE 



-> BEGIN 
REPEAT -> BEGIN 
-> BEGIN 



. AGAIN 

. WHILE . . . AGAIN 

. UNTIL END 

-> BEGIN WHILE . . . END 

-> BEGIN WHEN , . . END . . . END 

-> BEGIN . . . 

dup ... = WHEN drop . . . END 
dup . . . = WHEN drop . . . END 
. . . drop END 



\ J^creen 3 

\ One-Screen Unified Control Structure — Usage, contiaued 



BEGIN ... WHILE 


-> BEGIN . 


. 0= 


WHEN . . 


- (a) 


END 


. . . WHILE 




. 0= 


WHEN . . 


- tb) 


END 


REPEAT 


AGAIN 










... <b) ELSE . . 


(a) THEN 










BEGIN BEGIN . . . 


WHILE -> BEGIN . 


. 0- 


wriEN . . 


. (a) 


FND 




WHILE 


. 0= 


WHEN . . 


. (b) 


END 




WHILE 


. 0= 


WHEN . . 


- (c) 


AGAIN 



REPEAT AGAIN 
... (C) [ 2 ] SO REPEAT 
... (b) ELSE ... (a) THEN 
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As related by C.H. Ting 

Cbuckdiscussedthertewfyreleased^GOK, ttsinplanenta- 
(ion and its philosophy. OK is the next incarnation of Forth. 
It has many of Forth's attributes, but is simpler and more 
potuctfui.ttexistsincodeonfy, nosource. Thebestwaytodeal 
wOb a computer through its code—nd tbesource, which is 
onfy a description of the coitej ma the code itself. '^Tbemapis 
mX the U'rrilory; a description is not the prniram" Chuck also 
discussed bis CAD imfilementaiion on OK and the general 
chamctertstics ofthePZl cbp, tt^ich is trnderdet^ekprnera. 

—Dr. CJi. nr^ 

OK is the future of Fortti, It is what Forth should become. 
For 20 years, I tried to make Forih more readable and more 
compatible toother programming languages. Now, I give up. 
The prfjblem is fundamental. All programming languages, 
including Ponh, are text-based languages. The problem is 
intrinsic, in that the language is used to describe a program, 
A lexi-bascd language has problcnw in .syntax, like infix 
notation. . . Forth has less u-ouble in iliis respect, but it is still 
a descripticwi, not die program itself. 

Forth has the advantage that the source and objea code 
arc ail accessible to the programmer. The programmer can 
express himself and modify his code quite freely. The 
industry is moving in the opposite direction, Intel goes out 
of its way to make it difficult for programmers to modify cocfc; 
in the code se^nent There is a dialectic contrast here. Forth 
empowers the programmer, but the establishment wants 
constraints and control. 

T\io [irnlilcni in progrannming languages i.s the .syntax of 
the underlying text. English description of a program is 
impossible, just as symbolic expression of mathematics is 
impossible, Goethe said that mathematical truth cannot be 
proven. Symbology cannot be the description. It is impos- 
sible to describe a program by text. .'\ pixjgram is best 
expressed by the binary bits, but die binary bits have no 
intrinsic meaning. A program runs; it dcx;s what you want to , 
conuol. 'Icxt, the description of Qie program, cannot do it. 

In OK-CAD, you have all the code you n^d to deal with 
the task you have to do, and thaf s all there is to it. 'llicic is 
nosource. The dosest thing to tfie source code arc iJic pages 
of fioces I keep in a binder, *i*he tempution to document the 
code is strong, but the value is nil. 

OK is not text based, Tlie map is not the tenitory. 
Dcsaiplion is not the real tiling. 

The industry is very much in virtual reality, in modeling 
January 1 993 February 1 - 



arid simulation. Boeing is very strong in mcxieling on 
computers. Mechanics would not agree that the models 
would work. It is a typical GIGO, garbage-in, garbage- out, 

OK exists in code. It allows you to do whatever you want. 
Never mind how it came to being. I wrote it first using 
DEBUG , , . Most of the time I Imst the code is there and T don't 
worry about il OK is the incarnation of Forth in ihe ''X)s, 

Forth is based on a virtual machine with two stacks. Phil 
Koopman, Jr. said in a recent paper that Forth is a way of 
factoring. Fortli is kind of modular, and t)K is very modtilar. 
I will give you a few examples. The names in OK are spelled 
funny. 'Ihe most common symbols are ihe arn>ws: (ilie up 
arrow), V (the down arrow), > (the right arrow), and < (the 
left arrow). I used them often and consisleiuly. " always 
means increase, moving up, and so foith. tiete are some wotds: 

: 1 CHANGE ; 

: V -1 CHANGE ; 

: > 100 CHANGE ; 

: < -100 CHflNGE 

These fragments arc u.sed very often. In hd, 1 have 12 
versions of ifiem in OK and CAD. Since they are used so 
often, one might want to code a generic version which could 
be used ever) \vlie[C. In a generic version, you may want to 
clip (he value in tlie register, and do otlier things like range 
chedcing, etc However, a universal version does not exist 
Instead, I have a universal constmct like this: 




CHANGE ... AX + ! ? 

Using the 3S6 machine instruoions, each invocation of 
CHANGE uses only three 386 instructions. Here, a liigli-level 
language is not he I pfu L ' I hese small pieces of code fragments 
arc best done in madiine code. 

Most of the code is not in subroutines, it is in code 
fragments to be jumped to, not called You jump to a piece 
of code. E'raituaUy you jump to anoiticr menu, not return to 
some caller. 

Forth Dimsnsions 



Look at all the computer applications. Most often you are 
presented with a screen, whicti gives you some rlif>icf,';. Ynu 
scroll the screen, sometimes call other saeens and use some 
keys to make the choices. The meaning of keys changes with 
the context. Giving each key a SfX^cial name will gel ynu into 
trouble, because after the context changes (he keys will h.ave 
completely different meanings. The context is the whole 
screen. You do not need to have a word displayed on the 
screen to tell you what the screen context is, 

I use the 386 only as a historic insiance. OK is really 
designed for P20. When P20 is available, it will have OK and 
eForth. OK is more intuitive to use. It is easy, and you can use 
it to explore ?20. If we make thing easy to get into, machine 
language programming can be taught in grade scliool. I am 
peisuaded enough to build it and use it in the last four years. 
You should carefully monitor what I am doing, and jump in, 
if you will, when you are ready. 

The CAD system is now compiete. 1 have not spent much 
time changing it. ITie last thing I added was design rule 
checking. I originally thought it was not necessary; the chip 
should be correct by design, not by checking. However, I 
have to do it to convince myself that the design does not have 
any prdslem. I thought about it for a long time, about a 
monlli, before I started ctxling. 1 had one page of notes 
scribbled on a piece of paper, and 1 spent a couple of hours 
coding iL Rule checking has been a hot topic in the IC 
industry', lliere are a numbcT of algorithms. 'Ibe one I chose 
was tiie one everytxxly else rejccLcd, of course. 

I kept a table of rectangles in memory. 'Vhe layer of first 
metal is the most complicated, and it has 20,CXX> reaangles. 
I simply compare the reaangles one by one to see if any two 
of them get too close. The ctxie is very short, but it takes a 
long time to run through 20,000 x 20,000 comparisons. It took 
half an hour to check the first metal layer. This is the longest 
progi am I ever ran on OK. 'Itie t)t[ier layers are much simpler, 
and take about ten seconds to run througlt The rule checker 
stops when an error is detected, and the screen shows the 
tiles around the erroneou.s rectangles, with the cursor sitting 
on one of the rectangles, 1 can correa the mistakes and run 
it aver again. 

The code of diis design rule checker is only a few hundred 
bytes long. It is so small because of l ortli, I indeed have a 
Forth system, well factored and easy to use. 

Qitcsiioris from the Audience 

Does OK have two stacks? 

OK has one slack for subroutine calls and for temporarily 

storing regi.'^icr conlenls. t have a virtual tbta sla<k in ihe 3W> 
registers. 'Ilie order is AX, BX, BP, and so forth. The registers 
are genctally used in that order. My convention is that, in a 
subroutine, all the registers a re asstimed to he free to u sc. The 
caller is responsible for sa\-ing and restoring registers that 
might get changed. This practice is, again, contrary to other 
conventiMis. It was done just to irritate people. 

Hou^ didyou implement OK on a 386? 
The 386 is a very complicated machine. It has more than 
500 instructions, 1 keep a well-thumbed Intel 386 manual. 
Fbrth Dimensions 



I P20 has only 28 instructions and I have memorized all of 

them. .Most jx^ople would .start with a cross- com piicr. 
Implementing 386 OK, I started using DEBUG to enter the 
code until the menu system worked. Then I could modify the 
.system and add new c:o<,Ie by using OK itself. For major 
changes, 1 .still use DEBUG. 

Is OK an 'O' and aK'orisU 'Zero K? 

me say a few words about the CAD system. 

1 did the chip layout in tiles. There are 600 x 600 tiles in 
the P20 design. Each tile has five la>^rs, internally repre- 
sented by a 32-bit word. TTie entities contained in a Ule have 
different meanings depending on where (hey are. The 
meaning of the layout cannot be carried in words, but they 
are carried fully in the tiles. 

Mo.sr CAD systems try to use .symbolic description of the 
layout of a chip. I used it to lay out the pads around the core 
of the chip. I used it in ShBoom bccau.se 1 didn't have enough 
memory to hold the pads. The symbolic description v«is 
tern"ble. I cannot move them easily, and I cannot align them 
to the coordinates 1 want, so that the pad can be connected 
correctly to the signal traces. Finally, I moved the design to 
386 OK, which has more memory. All the pads were laid out 
in tiles and the problems disappeared. The best representa- 
tion of a picture is the piaure itself, not its description. 

OKisdistrtfmtedincode.How can otberpeoplecontrtbute 

to OK? 

OK takes 64 Kbytes. People can change it and build new 
applications in the 64 K chunk. We can coUea these images 
and distribute them on a single floppy disk. 

Compatibility is a talKJO, here. I have no intention to make 
OK system compatible. The code of OK 1. 1 on Novix, OK 2. 1 
on ShBoom and OK 3.1 on 386 are all similar Ixjt not 
identical. 

You have nosottrce listings. Howdoyou mcveOKtoanew 

pmcessor? 

'Ihe most important structure in OK is liic menus. The 
menu structure can be implemented on any processor, using 

different iechiiiquc.s. 'Ilie details will change, biu the menu 
structure will Ix; Llic .same. You can gel niucli ckxser to a 
machine without a language. It is like music and tJie score. 
The score is not the music Different musicians play the same 
score. Some will produce beauuful music, others will pro- 
duce terrible music — ev<;;n if they ail play correctly according 
to the same score. There arc lois of things the score does not 
tell about the music. 

Getting back loP20, MuP21 will Ije out in another week, 
and OK 4.1 on P21 will ha tlie ultimate OK. So far, the chip 
doesn't work. However, I followed the se<iuence of evolu- 
tion without the benefit of working silicon. The de.sign has 
been changed and improved greatly since it was first 
conceived. Ir got simpler. .\n example is the master dock. I 
started with one clock, then it was necessary to have a 
second. The .synchronization between the two clocks be- 
came a real problem. Now there is no dock, I am using an 
analog delay line to control the timing. The circuits are much 
simpler and more powerful. 
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Ihe reasons the chip didn't work were many. 'Ihe key 
suspea is the distance iaecween rectangles. Hie design ailes 
published by the manufacturers afe not clear whit the 

disiance really means. Is il thr absnluU' diagonal distance 
between corners of rectangles or the lateral distance between 
the edges of the rectangles? r have to move to a fail-safe 
direction, consists with my understanding of the rules. 

The chip area is 100 mil square. It is divided into 600 x 600 
tiles, which I laid out one by one. The image of the layout is 
1.'^ Mb in sl^c I convened the tiles into rectangles, and saved 
ihc rcaangics to a file. Interestingly, llie reaanglc file i.s also 
1.5 -Vlb. The ren angle file is then ZIPped down to 300 Kb. 

The code of CAD is about 3 Kb. Very small, compared to 
industry standards. The risk of software is that it becomes 
bigger and more cnmplicaicd Simpler software is always 
more reliable. 700,0(X> lines of code cannot be reliable. You 
cannot check them a!l. Simpler software means that you can 
check it completely. . . 1 read that the problem of the Patriot 
missile was traced to its floaling-point calculation, in a long 
sequence of calculations to follow the trajectory of the target 
missile, the truncation errors in ilie floaling-point calculation 
made the mis,sile unworkat^le. J was a ^reai believer in 
software until I learned hardware. 

In developing the P20 chip, I rely heavily on my simulator. 
I want to trust my simulator, but it is not yet proven. If I get the 
simulator proven, 1 will be able to move on todcsijiM other 
chips. I havelois of chips lined up in the pipeline to be designed. 

How do you decomjnlc the macbine code? 
P20 code can decompile very easily into Forth. However, 
there is ao room for comments. One important due is the 

names, which one can assign to any location in the memory. 
The decompiler in 386 OK is notyel complete It groups the 
bytes in a 386 instruction and displays the iti in one line. The 
instruction and its arguments are not translated to their Intel 
mnemonics. 

If a map is not the territory, is it necessary to have a mcp? 

A map is usefiil, but it is different from the territory. When 
the difference is subtle, you ma)' confuse yourself. 

I am woikirig on P32 and P24. In P21, the last bit was 
added to take care of the cany in the ALU operations and it 
is also tised to control memory addressing, to differentiate 
DRAM from SRAM. 'Ihe clocks are done in analog delay lines, i 
The T a nd N registe rs a re t i e d to the A I. L' . >' ou j ust enable the 
output and the results arc latched back into T. U takes 10 as. 
from enabling of address input, tJm)ugh the ALL , to get lix; 
data to ilic output pins. 

Silicon design is very challenging. A NAND gate has many 
inputs and an output if you want more driving current from 
a .N.'\.\D gate, you may use another output driver and tiicn 
invert the driver. Or you can invert llie inputs. Or you can 
invert the outpuL lliere are so many different approaches, 
and it becomes a holistic problem I <lon'l knriw how to come 
to an optimal iniple me illation, Siiurt of doing tlie exjx;ri- 
ments yourself and get experience Uk; hard way, you don't 
have a note on how to get it done right. 

In the meantime, OK is now out and I hope you will have 
fun with it. Thank you. 
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(Lellers, ajnlinutid from page six J 

I was glad to sc*e the FIG presence, I>ut wiihoui nilici 
Forth vendors 1 question if many conventioneers got the i 
Forth message Too bad there weren't some controller- 

opttrated, fun gi/nios, like the traveling di,splay ai ihc I 
Anaheim (1988) programming contest, to show that Forth 
actually works. It could give some Fordi vendors a chance to 
,shnw off their hardware. If the gi'/mos are made transport- 
able, they could be made available to FiCi displays at other 
conventions. And demos of Forfli programming (there's a lot 
of po.stfix paranoia) would let the curious actually see some 
of the Forth systems available. Forth definitely needs more 
marketing pij^zz. 

Someone at the FIG booth demonstrated a clever method 
of creating and then downloading headerle^ Forth oxJe 
through a .serial fxin to the con trolls. Perhaps he would 
describe it lurcher in an article? 

Motorola won the "Chutzpah" award in marketing, hands 
down, I'or the Okloberfest beer bust at the convention, Intel 
handed out fancy glass mugs imprinted with their logo. 
Motorola then passed out blue insulating blankets that 
wrapped around the mug, covering Intel's logo with ilieir 
own. I presume a suitable revenge is being planned, . . 

Yours truly, 

Walter J, Rottenkolber 

P.O. Box 1705 

Mariposa, California ^533*5 

Kelly's Comparisons Clarified 

Dear Marlin, 

There may be some confusion about the meaning of die 
timing information contained in Tables Two andThrre of my 
article, "Forth Sysienw Comparisons" C/B XlU/6), as evi- 
denced by comments one and two in the much-appiectated 
letter by Don Kenney in FD XIV/3. 

The comments accompanying the benchmark code were 
meant to illustrate that the empty loop times were .subtracted 
from all liie other raw times (except for the Sieve), Hence, for 
instance, the empty loop time for riFORTH is shown as 
greater than the threading time because it has already been 
subtracted from tlie raw time. 

The probiAile reason that riFORTH did not perfonn better 
in ihc Sieve benchmark is that the version tested used 3. high- 
level DO LOOP tonsUuci, and ilie loop limes were not 
subtraaed from the Sieve times, 

1 would have to disagree wiih ,Mr Kenney that hand 
calculating iJic times would luw. Ixvn ea.sicr, considering 
the number of versitjus ori'onh itsiod, the nunilx;r of words 
and tests per Forth, and tiie fact tiiat llie timing differences 
were in the same ball park (approximately ten to 30 percent) 
tliat the hand timing were in error Oteponed as four and 
seven percenO. 

My thanks to all those who took the time to comment on 
the article, it made it all worthwhile! 

Sincerely, 

Guy M. Kelly 

2507 Caminito la Paz 

La Jolla, California 92037 
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HARVARD SOFTWORKS 

NUMBER ONE IN FORTH INNOVATION 

(513) 748-0390 P.O. Bok 69, Springboro, OH 4S066 



By now you know that HS/FORTH gives you more 
speed, power, flexibility and functionality than any other 
language or implementation. After all, the majority of the 
past several years of articles in Forth Dimensions has 
been on features found in HS/FORTH, often by known 
customers. And the major applications discussed had to 
be converted to HS/FORTH after their original dialects 
ran out of steam. Even the public domain versions are 
adopting HS/FORTH like architectures. Isn't it time you 
tapped into the source as well? Why wait for second hand 
versions when the original inspiration is more complete 
and available sooner. 



Well, it was a dirty job, but we finally had to do it. 
Now you can run lots of copies of HS/FORTH from 
Microsoft Windows in text and/or graphics windows 
with various icons and pif files available for each. Talk 
about THE tool for hacking Windows! But, face it, what 
I really like is cranking up the font size so I can still see 
the characters no matter how late it is. Now that's 
useful. 

Good news, we've redone our DOCUMENTATION: 
The big new fonts look really nice and the reorganization 
makes aU that functionality so much easier to find. 
Thanks to excellent documentation, all this awesome 
power is now relatively easy to learn and to use. 

Naturally we continue tweaking and improving the 
internals, but by now the system is so well tuned that 

these changes are not individually of any significance. 
They just continue to improve performance a bit at a 
time, and enhance error detection and recovery. Update 
to Itevision 5.0, including new documentation, from all 
4.XX revisions is $99. and from really old systems the 
update is $149. 

And since Spring is coming, IT IS TIME FOR OUR 
SPRING SAIiE. Thru the end of May you get to pick 

two extra utiUty packages free for each Professional or 
Production Level system purchased, or get a free Online 
Glossary with help file utility with each Personal Level 
system purchased. 



HflVFOSIH mnB under USDOS or 
PCDOS, or from BOM. Each level includes 
all features of lower ones. Level upgrades: 
$26. plaa price dlftbrenoe between levels. 
Source code is in ordfnary ASCII text flies. 

HS/FORTH supports megab>'to and larger 
programs & data, arid runs as fust as 64k 
limited Forths, even without automatic 
optimizatioQ ~ whitli accelcraiiid to nciir 
assembler language speed. Optimizi^r, 
assembler, and tools can load transiently. 
Beaize aegmeotts, ledefme words, eluninate 
headers without recompiling. Compile 79 
and 83 Standard plus F83 programs. 

PERSONAL LEVEL $299, 
NEWI Fast direct to video memory text 

& scaled/clipped/ windowed graphics in bit 
blil windows, mono, ega, ega, vga, all 
ellipsoids, splines, bezier curves, arcs, 
turtles; lightning fast pattern drawing 
even with irregular boundaries; powerfiil 
parsing, fornnatiing, 11 le and device I/O; 
DOS shells; interrupt handlers; 
call high level Forth from interrupts; 
single step trace, decompiler; music; 
compile 40,000 linos per minute, stadta; 
file search paths; format to strings, 
software floHtiiig point, trig, transcen- 
dental, IS digit integer & scaled int^r 
math; vars: A E * IS C compiles to 4 
words, 1..4 dimension var arrays; 
au tom^tic optimizer deliveon maeliiBe 
code speed. 



PROFESSIONAL LEVEL 

hardware iloating point - data structiiree 
for al! data types .''rom simple thru 
complex 4D var arrays - operations 
eoniplete thru complex hyperbolies; 
turnkey, seal; interactive dynamic linker 
for foreign subroutine libraries; raund 
robin & intcriTjpt, driven mnkitaskei-s; 
dynamic string manager; lile blocks, 
sector mapped blocks; z86&7 assembleis. 

PRODUCTION LEV'EL $499. 
Metacompi ler; DOS/KOM'direct/indirect; 
threaded .systems start at '200 biytea. 
Forth cores I'rom 2 kbjles; 
C data structures & struct* compiler^ 
MetaGraphics IXjrbo Window -C library, 
2O0 graphic'window functions, PostScript 
style line attributes & fonts, viewports. 
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PROFESSIONAL and PIWDUCTION 
LEVEL EXTENSIONS: 

FOOPSt wtth multtpte Inheritance $ 79. 
TOOLS & TO¥B OKSK $ 7». 

28^RTH or SSSFOBTH $2M. 

16 Megabyte physical address space cf 
gigabyte virtual for programs and data; 
DOS St BIOS fully and beety availablo; 32 
bit address/operand range with 386. 
ROMULUS HSTORTH from ROM $ 99. 

Shipping/system: US: $9. Canada: $21. 
foreign; $49. We accept MC, VISA, & AinEx 
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With this set of monef exchange words, we can do some 
tests: 



Numbers 



CM Ting 

San Mateo. California 



In this lesson, we shall discuss ihe way Forth handles 
integers. Integers are numbers from -32768 to 32767. This 
range of numbers is most convcnicnl lo \x s(r>rcd and 
prutcssed in I'onh. It is very surprising tiiat many real -world 
problems can be represented and solved using numbers in 
this range. Forth can handle larger numbers, and even 
floatiftg-point numbers, but these are topics outside the 
scc^ of this lessc»L 

Exan^ One. Money E)a±angp 
The first example we will use to demonstrate hnw 
numbers are used in Forth is a money exchange program, 
whid) converts money repMcsented in different currencies. 
Lefs start widi tlie following cunencjr exdiange table 



24,55 VI' 
7.73 HK 
5.47 RMB 
1 Ounce Gold 
1 OutKe Silver 



1 Dollar 
1 Dollar 
1 Dollar 

356 Dollars 
4.01 Dollars 



We shall use the U.S. dollar as the standard currency, and 
conven all other cunendes to dollars first. All arittimetic 
operations wfll be carried out in dollars. The dollars can then 
be converted back to any other currency. 

We define words lo convert otJier cunencies to ihe dollar 
by using the names of the corresponding currencies. To 
convert from dollars to another currency, the word is 
preceded by the $ sign. 



NT 


( 


nNT — $ ) 


10 245 */ .s ; 


$KT 


{ 


$ — nNT } 


245 10 */ .s ; 


RMB 


( 


nRMB — 5 ) 


100 547 */ .s 


$ jnf> 


( 


$ **— njir^ ) 


547 100 */ .3 


HK 


( 


nHK — S > 


100 773 */ .s 


$HK 


( 


$ ~ S ) 


773 100 */ .s 


gold 


( 


nOunce — $ ) 


356 * .3 ; 


$gold 


{ 


$ — nOunce ) 


356 / .s ; 


silver 




( nOunce — 5 


) 401 100 */ .3 



Ssilver { $ — nOunce ) 100 401 */ .3 , 
ounce < n — n, used to irrprove syntax ) 
dollars { n — ) . ; 
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5 ounce gold . 
10 ounce silver . 
100 $NT . 

20 $RMB . 

If you have many different currencies in your wiUet, you 
can add ttiem in doUars: 

1000 NT 500 HK + 

320 RMB + 

dollars ( prints total worth in dollars ) 

If I am in Hong Kong at the time, the total amount can be 
readily converted to Hong Kong dollars: 

1000 NT 500 HK + 320 RMB + 
$HK dollars 

( converts to Hong Kong dollars and prints it) 

Exercise Dm. A business trp. 

Now we have a fairly powerful money exchange com- 
puter with us. Suppase you depart San l-randsco with 1000 
dollars in your pocket. You go to Hong Kong and buy a VCR 
with 1200 HK. Go to Shanghai and sell it for 2000 RMB. 'fhen 
come back to Hong Kong and s[x;nd 900 HK for fiin. Go to 
Taipei and buy a portable PC with 300fX) NT. How much 
money in U.S. dollars do you have remaining.'' 

The answer typed tadcwards is: 
srallod - TN 00003 - KH 009 + BMR 0002 - KH 

0021 0001 

Try it. 

Exan^e Tiuo. Temperature conversion 
Convertirig temperature readings between Celsias and 
Fahrenheit is also an interesting prd>lem. The difference 
between lemixraiure conversion and money exchange is 
that the two temperature scales have an o^set in addition to 
the scaling hiOiot. 



F>C 



( nFarenheit 
32 - 
10 18 */ 



nCelcius ) 



OF < nCelcius — nFarenheit ) 
18 10 */ 
32 + 



90 F>C . shows tfie temperature on a hot summer day 
and 

OF , shows the temperature in the cold winter. 

In the above examples, we use the following ['orth i 
arithmetic operators: { 
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+ C nl n2 - nl+n2 ) 

- ( nl n2 - nl-n2 ) 

* ( nl n2 - nl*n2 ) 

/ Cnln2-nl/n2) 

*/ (nl n2 n3 -- nrn2/n3) 

.3 (...-...) 



Add nl and n2 and 
leave sum on stack. 
Subuaa n2 fiQm nl and 
leave difference on stack. 
MLil[iply nl and n2 and 
leave produa on stack. 
Divide nl by n2 and 
fcave quotient on stack. 
Multiply nl and n2, 
divide the product by n3 
and leave quotient on the 
stadc. 

Show the topmost Tour 
numbers on stack. 



I k're we have to inirodiice the concept of a stack. .\ stack 
is a memory area in the computer where numbers are stored 
and retrieved implidtly. It is diffeient from wtriables (dis- 
cassed in l£.s.son One). Variabfcs arc named localinns in 
memory, which are accessed by referring to the assigned 
names. A stack is a fifst-in-Iast-out list When a number is 
given to Forth, it is pushed on the .stack. Any operator which 
uses numbers pops the required numbers from the Stack. The 
most accessible number is on the top of tlie stack, like the 
card on top of a card deck. Various Forth operators may 
produce one or many numbers, and the numbers are pushed 
on the .stack a,s ihey are generated. 

+ thus pops the two topmost, numbers off the stack, adds 
them, and then pushes the sum back on the stack. -, *, and 
/ are other operators commonly used to do simple math. 
One must notice thai the order of tlie two numbers used by 
+ and * is imcnatenal, •wMe the order is important for - and 
/. Exchanging the two numtx;rs will produce different 
diflerences or quotienLs, respxictivciy. 

*/ is ascaling o[x;raior in Forth, which is useful in scaling 
integer numbers. It multiplies nl by the ratio of Cn2/n3). As 
shown in Examples One and Two, [ tii,s operator is very uselul 
in scaling quantities fioni one unit to another. Scaling is a very 
powerful operation which eliminates tlie necessity of using 
floating-point numbers. 

. s is a debugging tool which .showK you the contents of 
the topmost four items on tlie slack, it is used often during 
debugging to make sure the stack has the cmed numbers 
for your calculations. It is generally not used in the final 
program, to avoid priiiling too many intemiediate values. 

Several other important, but less commonly used, math 
operators are; 



MOD C nl n2 - rem ) 
/MOD C 111 n2 - rem quot ) 



1+ 
1- 

2* 
2/ 



Cn - n+1 ) 
( n - n-1 ) 
C n - 2n ) 
Cn-n/2) 



ABS (n - Inl > 

NEGATE ( n — -n ) 
For#} Dimensions 



Divide nl by n2 and leave 
the remainder on slack. 
Divide nl by n2 and leave 
both remainder and quo 
tii-ni on stack. 
Increment n on stack. 
Decrement n on stack. 
Double n nn stack. 
I lalve n on stack. 
Convert top number on 
.stack to absolute. 
Negate n on stack. 



I As we go along, some of these operators will be used as 
ocxrasions arise. 

S^ckOperaUHS 

lire stack is the most important place where the results 
of previously executed operators can be passed to the 
operators yet to be executed Operators take parameters 
from ihc Stack and leave resulLs there for subsequent 
operators to use. A pr<.>gram can be built easily by strin^ng 
together subroutines. The subroutines can call other subiou- 
tines, and so on. The subroutines are Forth operators, and 
can be nested almost indefinitely. This is a very important 
reason why Forth is simple in its architecture and also in its 
syntaoical stmcture. 

However, it happens very oft«i that the oadcr of the 
numbc^rs on ihe stack is not correct for an operator which 
needs them, like - and /. There is a sec of stack operators to 
rearrange mimbeis on the stack. The five most imporUnt, 
classic stack operators are: 



DUP C n - n n ) 

SWAP C nl n2 - n2 nl ) 
OVER C nl n2 - nl n2 nl ) 
ROT C nl n2 n3 - n2 n3 nl) 
DROP (n.-) 



Duplicate the top of stack. 

Exchange top two num- 
bers on stack. 
Duplicate the second 
number on stack. 
Rotate third number to 
the top of stack. 
Discard the top <^ stadc. 



Exan^ Three. Rectangles. 
A rectangle is spec:ifie<l by the (x,y) coordinates of its 
Upper-left and lower-righi corners. With these four integers 
on the stack, we can compute the area, the oenter, and the 
perimeter of a rectangle: 

: area ( xl yl x2 y2 — area ) 
ROT - ( xl x2 y2-yl ) 
SWAP ROT - ( y2-yl x2-xl ) 
* ( area ) 
* 

: center ( xl yl x2 y2 — x3 y3 ) 
ROT - 2/ ( xl x2 y3 ) 
SWAP ROT - 2/ { y3 x3 ) 
SV9AP { x3 y3 > 

r 

: sides ( xl yl x2 y2 — sides ) 
ROT - ABS ( xl x2 y2-yl ) 
SWAP ROT - ABS ( y2-yl x2-xl ) 
+ { sides ) 



Logjc Operators 

Computers use logic o[x;rators to determine and follow 
different execution paths. Logic operators themselves are 
very simple and easy to understand. Howewer , the mmbina- 
tion of many levels of logic operations, and the multitude of 
different palhmys in a large program, makes the computer 
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seem veiy complicated, even to the poini of showing some 
intelligence. 

Here wc Introduce some of tlic Itjgic operators associated 
with numbeis, and thi; biaiiching operators which use the 
results of logic operators to selea difTeient operations. 

Forth uses numbers to represent logic lerels. There are 
only two logic Ic^vcls, true anti false. Tnjc is represented by 
any number which is not aero (usually a -1), and false is 
represented by zero. The number representing logic levels is 
often called a Jh^ 



0= 

0< 



Col n2-f) 

cm n2-f) 
Cnln2-f) 
Cn-f) 

(n- f) 



NOT C fl - f2 ) 



Return taie if n1>n2. 
Otherwise, return false. 
Return true if nl<n2. 
Return true if nl^nZ 
Return true if n-O. 
Return true if n<0. 
Return tntc if f1 is false. 
Otherwise, return false. 



Aflagcanlx;u.sed lo .sdecl one oflhe two execution paths 
by the following constructs inside a colon definition; 
< f ) IF <true clause> ELSE <f alse clause> THEN 
( f ) IF <true clause> THEN 

ExamfdeFmr. Weather Reporting, 
The following colon definition illustrates the use of logic 
and the branch; 
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weather ( nFarenheit — ) 
DtJP 85 > 

IP Too hot!" DROP 

ELSE 55 < 

IF ." Too cold." 

ELSE About right.' 

THEN 
THEN 



You can type the following commands and get some 
responses from the computer: 
90 weather Too hot! 
70 weather About right . 
32 weather Too cold. 

Loop Operatofs 

We .shall be concerned now wiih only the definite loop 
Operators used in the following format in a colon definition: 
{ nLimit nindex ) DO <repeat_clause> LOOP 

DO takes two parameters off the slack. The top number 
is the starting index of the loop and the second number is the 

upper limit of the loop index. After entering the kjop, the 
repeat clause Ls repeatedly executed. LOOP incremenLs ilie 
loop index from rilndex to nLimit. When the index is 
equal to nLimit, the loop is terminated In the repeat clause, 
a special operator 1 returns the current loop index on the 
suck. 

A simple example of the loop struaure follows: 

Example 1-ive. Print the tmtltipHcation table. 
: OneRow { nRow — ) 



CR 

DUP 3 . 
13 1 
DO I 
4 

LOOP 
DROP ; 



R 3 SPACES 
OVER * 



Table ( — ) 
CR CR 6 SPACES 
13 1 

DO I 4 .R LOOP { display column nunibers ) 

13 1 

DO I OneRow 
LOOP 



Typing TABLE will cause the multiplication table to be 

displayed in a neat format. 

Witli tlicsc new I'orit) O(x;rators, we can now write a fairly 
substantial program, using many of the operators to demon- 
stfatc how ihey are combined to do useful work. 
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Life in the FastForth Lane 



Optimizing in 
BSR/JSR'Threaded Fortit 



Charles Cuiiey 
Gillette, Wyoming 

The purpose of this paper is tn describe a code optimizer 
for a 680{X)-bascd JSR/BSR-l^lrcad£:^d Forth interpreter/com- 
piler. 'I"he code operates in Lhe traditifma I I-orth singlc-pa.ss 
cotnpiler, optimizing on the fly. The lesult includes words 
which execute in fewer instructions than the woids called out 
in the source code. 

HLstorical Note 

The I 'ort h used for ihc code de.scriljed herein is I'astJ-orih, 
a full 32-bil BSlVjSR-liircadcd Ibrth for lhe 68000, described 
in unmitigated detail in "Optimization (Considerations' (foftb 
Dimensions XIV/5). it is a dired modification of an indirect- 
threaded Forth, real-Forth. nils is, in turn, a direct descen- 
deni of fig-Forth, (Remember fig-Fortk^ fig-Forth's vocabu- 
lary, word names, and other features have been retained 

For those not ^miliar with 32-bit Forths, the memcMy 
o[x;rators with Ltte prefix w operate on word, or l6-bit, 
memory locations. Fastl-ortli uses the operators F@ and F ! 
for 32-bit memory operations where Uie address is known to 
be an even address. To avoid odd-addiess faults, the regular 



This optimlxer Is a 
complete mtU, and Is 
dependent anty upon ffie nature 
of the target processor 

Forth operators § and ! use byte operations. 

The axsc^mbler used to illustrate is descended from the fig 
68000 assembler by Dr. Kenneth Mantei. It is a typical Forrh 
reverse Polish notation assembler. Typical syntax is- source, 
destination, opcode. The addressing modes relevant to the 
paper are as follows: 



[ Address register indirect 

[+ Address register indirect with post-inciemetit 

- [ Address regis tier indirect with prc-dccrcment 

& [ Register indirca with a word of displacement 

@#L Absolute long address 

# Immediate data, word 

#L Immediate data, long 



' There is nothing particxiiarly new conceptually here. 

' Chuck Moore's cmFonh includes an optimizer for the Novix 
NC-4000. The present paper descrilxs an optimi/cr for a 
more traditional CISC instmction set, the Motorola 68000. 

The CjOmpiler 
The compiler used in Fasll'orth looks very much like a 
traditional indirect-threaded Forth. However, it lays down 
- opcodes which call (via RSR or JSR instmctioas) lower-level 
words, rather than a list of addres.ses for NEXT to interpret. 
For example, the traditional word l is defined as follows: 

: L SCR F@ LIST ; 

In an indirect- threaded, 32-bii Forth, the compiler would 
build the header for L. This would be followed by a four-byte 
address forthe code to tx; executed to interpret the word The 
code field address is followed by a four-byte address for each 
■ of the three words ctlled out in the source, "lliis would Ix; 
followed by the address of the exit code, laid down by the 
compiler directive ; . 

In a BSR/JSK-ihreaded I-orth, the compiler lays down 
BSRs ("branch to subroutine') or JSRs (jump to subroutine), 
as appropriate, to the words called out. The return code 
consists of an KTS instruction Ttte result may or may nolt>e 
smaller tlun the indirect-threaded version, but it certainly will 
be faster. Whether the result is smaller or not depends on the 
mix of short BSRs (two bytes), long BSRs (four bytes), and 
JSRs (six bytes) laid down at compile time. 
'■ One optimization discussed in "Optimization Consider- 
I ations" is to examine the last instruction of a word. If it is a 
liSR orJSK, that Instruction can be twiddled to produce a BRA 
or JMP instruction. 

Anotiier optimization is to lay down in-line code instead 
of calls. Ihis is particularly benefidal when calling short 
■^vords (e.g., F@) from a distance, which -w-'ould require a JSK 
instruction. Not only docs tlie tech tuque sa\e run ume (by 
eliminating a call and an R'lS instruction), but it may reduce 
the size of words. One drcumstancc wliere this leciinique 
docs not save space is where a four-byte word is copied in 
line: It > a Incition which would have required a short (two- 
byte) I3SR. 
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Optimized definition vs. Che imginal 






JSRmSR 




Indirect Threaded 




bytes 






SCR 


Six bytes laid down in line. 


Four bytes 


F@ 


Rxjr byles l^d down in line. 


Four bytes 


LIST 


Two, four or six bytes of BfiA or JMP. 


Four bytes 


e?<it code 


bytes 




Four bytes 


Total 


16, maximum 




20 bytes 



optimize that. Instead, let us 

generalize, andlook for phra.ses 
of the general type: 

<USER V3iRIABLE> FB. 

To detail this example: a 
user variable is an imimdia^ 
woixl, which lays down the 
following phrase: 



Variables, constants, and user variables in FastFcwth are 
immediate words whidi compite in-line code, often a six- 
byte reference. 

With these optimizaiions, the compiler produces the 
above for the .sample word L given earlier. 

The total is sixteen bytes at most, compared to a firm 
twenty bytes for the indiretl-thieaded version. So the JSR/ 
BSR version may be smaller, but certainly will be much faster! 

Two more typical Forth optimization."; are common and 
won't be discussed very much. 

If a phrase shows up a lot in a Forth program, it is common 
practice for the programmer to consolidate fliat phrase in a 
word with a meaningful name. This is optimizing for 
readability and dictionary size, rather than speed. 

The second is to reduce words from high level to 
a-^LSembler. This tetfiiies the active intervention of the program- 
mer, and the results are well worth it in terms of speed, and 
often wotthwhile in terms of space. Alas, such optimizations 
only improve readability for those who know the relevant 
assembly language (and, sometimes, tlie relevant a^embler), 
leaving the code more opaque to those without such skills. 

The Optimizer Design 

An optimiTer for in-line code should Ix; a single-pass 
optimizer, lo Ix; consistent with North's iraciitioiial single-pass 
comp i !e r. ' n 1 is wou id make difficult, forexa mple , repladilglong 
forward brandies wdth short ones on the fly, but would reailt 
in much simpler code in the compiler. It must, then, operate at 
compile time, .tnci so must consist of immediate words. 

The optimizer should be an add-on, so tiut ilie user can 
add to the optimizer if he wishes to. However, it should also 
be carried over to the cross-compiler so as to produce a very 
efficient nudeus. 

The optimizer should work .silently, as far as the user is 
concerned. Hiat is, it should require no changes in source 
code to be u,seful. This requirement separates out the 
optitui/in.L; rnmpiier from the two common optimizing 
methods described above. 

Initially, the optimizer word could be developed as a 
series of discrete; words, but these would be replaced by one 
or more defining words and their daughter words. 

One to ai^gle-pass optiinization durif>g <x>mpilation 
to have immediate words which examine prcvit hjsIv ainifiiled 
opcodes, and twiddle certain ones to p!odu<,:e UghlLir code. 

Another key is to look for certain phrases which can easily 
be detected and easily twiddled We could look for the 
phra^ BLK F@, which shows up all over the nucleus, and 



<offset> S[ U ARO MOV, ARO S -t MOV, 

Translated inK) EnglLsh, the first instruction moves data 
from a user variable indicated by an offset from the user area 

registe r U to address register 0, The second pushes it out onto 
the stack. The result, examined in memory as word data, 
looks like: 

I 41ee I <off3et> I 2708 I 

If the next word in the source code is F8 and it is 
immediate, it can look at here-less-six for the opcode 4lee. 
Finding it, it can twiddle the dictionary to produce the 
following code; 

<OffSet> S[ U ARO MOV, ARC t S -[ MOV, 

This produces the following memory dump: 
1 41ee I <offset> | 2710 | 

The first instruction still moves the contents of the liser 
variable into the address register, but the second instruction 
now reads data from the lora [ ion pointed to by the register, 
and pushes it onto the data stack. 

The phrase <USER VARIABLES F@ is now executed in 
two instruaions instead of the previous four, and occupies 
six bytes instead of the previous ten. And the optimizerworks 
' for all u.scr \ afiable,s, even ones not defined at the lime the 
optimizer is compiled. 

Other two-word phrases were similarly identified and 
opti mixed, and some three -w(.)rd phrases were also identi- 
fied and optimized. As each phrase was identified, a defining 
word was built up, consisting of nested IF „, ELSE ... THEN 
dauses. The resultant words are monsters, and must be 
thoroughly understood by the programmer who seeks to 
modify them. In these two respects, ifiey arc un-Forthish, but 
the gain obtained by using tlicm is worth the price. 

•niese words must all be state smart. As they will mn either 
at run lime oral compile time, tfiey must examine state and 
aa accordingly. Ihe action at run time is, of course, to 
exCGulc their namesakes. Hence, in the run-time portion of 
ilic dcfinitig words, the phrase STATE FQ IF ... else 

eEXECUTi:; TlicIJ. 

In order for that ptirase to work corrt'cily, we must have 
the run-time address of the namesake in the dictionary. We 
require the nam^ke to be ex pi itiily .stated: ' it and comma 
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robotics kernel, MODUL Forth, parallel processing, 

Orammable controllers, Prolog, simulations, langtiueU^acs, 
waTe, Wil^s workings Tinges philosophy. Forth haniware 
tpi>licationt, ANS Forth session, future of Forth in AI 
310 pgs 



1989 FORML ntOCE^lNGS 319 - S4n 3i 

Includes palters from '89 euroFORML. Pascal 10 Forth, t en 
extensibleoptimizerfor ct>mpi7in g,3Dmeasurementwith object- *- ** ' " 
oriented 1-orth, CRC polynomials, F-PC, Harris C cross- 
compiler, modular approach to robotic contiol, R'l'X icoompiler 
foroai4iaeiiiaimenanee,inoi)iilei,ininableiwwalnets. 433 pgs 



l«fl FORML PROCEEDINGS 



320 - $40 3# 



i^h in indllS&y, communications monitor, 6805 development. , , 
3-key keyboam, documcniaiion techniques, ubjcct -oriented «-*•< 3" 
piogiannning, simplest E^orth decompiler, error lectmxy. stack 
operations, piocets cumtnd event manag^ent, contnd stractiae 

analysis, systems design course, group theory using Forth. 
44! pgs 



•k - These aie your most up-to<clate indexes for hack issues of Fnnh Dimensions and the FORML proceedings. 

Fax your orders 510-535-1295 



1»1 PORML PRO( KEDINGS ^21 - $50 3# 

Includes 1991 FORML. AsUomar. euioFOKML '91, 
Czechoslovak 

Diffcreniial File Comparison, I.INDA on a Simulaicd Nciaork, 
QS2: RISCiiig itaU, A ihrcailcJ Mitroprogram Mjduiie. I-onii in 
NetwoifcinE,T-orth in the SoviM Unirai, FOSM: A FOnh String 
MHdter, VGA Giaphica and 3-D Animauon, Furth and TSK, 
Forth CAE System, Ajwlyins Forth to Electric Discharge 
Macfahting, MCS96-PORT11 Single Chip Conputer. 500 pgs 

BOOKS ABOUT FORTH 

ALL ABOUT FOK'I'H. 3rd cd., Junt IWU, Glen B. lUy.bil 201 - $90 1* 
AimotaHed glossary of most Forth words in common usaj[e, 
including Foith-79, Foith-83. F-PC, MVP-Forth. Im piemen waoa 
examples in high-level Forth and/or 80R6/SS atieinfalcr. Useful 

Clin men la ry given for each enlr\'. $04 ps^s 

THE CO.VII'LKTK FOKTH , Alan Winfield 210-514 1# 

A comprehensive Introductkm, including probtens with tnswen 
(Fonh-79). 131 pgs 

^RTH IMPLEMENTATION GUIDE, C.H, Ting 215-525 1# 

cToTih is the name of a 1-yrth model designed to be portable to a 
large niirnlier of the newer, more. po"Wcfful processors available 
now and beci m i ne avai lab I e in ih c n car f uture. 54 (w/disk) 



FS3 SOURCE. Henry Lajcen & Michael Peny 

A conpl^ lilting of FS3, indniling sotuce and shadow 
Includes intiDdncQrai on getting started. 208 pgs 



2n-S2fl 2# 



219 -$31 IM 



FORTH: A I LXT AM) KEFKRKNCK 
Mahlon G. Kelly & Nicholas Spies 

A textbook apnrDtcb to Forth, with compiehensive references to 
MMS-FORTH and the '79 and '83 Forth standapds. 4S7 pgs 

THE nRST COURSE. C.H. Ting 223 - 525 1# 

This lutoriars goal is to expose yc« to the very mininium ^ui of 
Forth instniciions so thai you tan start to use lonh to si->lvc 
practical problems in the shortest possible lime. "... Ihistulurtal 
wu devdt^cd to ccntplereKnt The Forth Count which stums too 
fast on ihe elementary Forth instmctioDS «nd dives too qnidcly in 
the advanced topic* in > upper level college microcompiser 
laboratory. ... ' A running F-PC Forth system would be very 
u.sefu]. 44 pf^s 

THE FORTH C( ) I ; K S K . R i th a rd F.. 1 laskell 225 - S25 1 # 

This set oT 1 1 lessons, called The Forth Course, is designed to 
mldwit easy for you to leam Forth. Ihe material was developed 
over several years of leaching Forth as part of a senror/graduate 
course in design of embedded software computer systems at 
Oakliind University in Rodiester, Michigan. 156 pgs (w/disk) 

FORTH ENCYCLOPEDIA, Mitch Deride & Lmda Baker 220 - $30 2# 

A ilL-tailcd liKik ai fjich fig-I'onh instruction. 327 pgs 

FORTH NOTKKOOK, l>. C I !. I ing 232 - $25 2W 

Gootl examples jnti jppbcaiit^ns. ClrL'at Icarinng aid. poly- 
FORl'H is the dialect used. Some conversion advice is indudol. 
Code ii wcU dooancmed. 286 pg s 

FORTH NOTEBOOK II, Dr. C.H. Ting 232a - $25 2# 

CoUedion of research papers on various topics, such as image 
processing, parallel processing, and miscellaneous applications. 
237pgs 

F-PC USKHS MANUAL (2nd ed., V3.5) 350 - $20 U 

Lscr^ manual to the public-domain Forth system optimized for 
IBM PQXIVAT compuiets. A fat, fast system with maiiy tools. 
143 pgs 

F-PC TECHNICAL REFERENCE MANUAL 351 • S30 2# 

A must if you need to know the inner woricings of F-FC. 269 pgs 

INSIDEF-S3,Dr.C.lf. ling 235-$25 2# 

Invaluable for thosi; using !• -83. 22<S pg,^ 

LIBRARY OFPORIH ROUnNES AND m-a,m£S, 

James D-Teciy S7-$23 M 

Comprehensive cdlccdon of pfofessional qnatity computer code 
for Forth ; offers routines lb at can be pot to use in almost any Forth 
appUcation, including expert systems and natural-language 
interfaces. 374 pgs 



OBJECT ORIENTED FORTH, Ehck Fountain 242 -$35 1# 

Implementation of data stnictiiics. Fiisl book to make otijecl- 

orimieti pmafsmmine avaaaMBtouteis Of even ray small home 

computers, j 18 pgs 

SEElNn KORTH, Jack Woehr 243 - $25 1# 

"... I w oiild like to share a few observations oti Forth and computer 
science, lliatis the purpose o£ this monograph, it is offered in the 
hope that it will broaden slightly the streams of Forth Kteraiure ..." 
95 pgs 

SCIENTinC FORTH, Julian V. N<*le 250 - S50 2J* 

Scientifa: Forth extends the Forth kernel in ilit direction of 
scientific problem solving, it illiisirates advanced Forth 
prtigrarrutting techniques with non -trivial applications r 
computer algebn, roou of eqiutioiu, diffeiemial equauuns, 
fanctkn minimizuion, ftindkma] rcpreientation of data (FFT, 
polynomials), linear equations and matrices, numerical 
int^tation/Monle Carlo methods, high spued real and comfdex 
floating-point arithmetic. 300 pgs (Includes disk with programs 
and seveni utilities), IBM 

STACK COMPLTERS, THE NEW WAVE 244 - J«2 2# 

PhDip J. Koopman, Jr. (hardcover only) 

Presctits an ahemative to Complex Instmclion Set Coirpulers 
(CISC) and Red need lii';(r\n-t!on Set Computers fKfSC) by 
showing the stienglhs and weaknesses of stack machines (hattl- 
cover only). 

STARTING FtJRTH Cnd cd.), Ixo Brodie 245 ■ $29 2M 

In this edition nl Siurling Fiirth — the most popular and wmplcte 
introduction to Forth — syntax has been expanded to include the 
Forth-83 Standard. 346 pgs 

WRI'I R \ OL R t)VVN PROGRAMMING LANGUAGE USING C++, 

Norman Smith 270 -S 15 1# 

I1iis luiok is aboul an appbcation language. More specifically, it 
is about how to write yoor own custom application language. The 
book contains the tools necessary to begin the process and a 
complctesamplelanguageim piemen tahon . |( rucss what languagel) 
Includes disk widi complete source. 108 pgs 



ACM-SIGFORTH 

The ACM SIGfknth Newsletter is publidiod quarterly by the 
Associatica of Computing Machinery, Inc. SIuFonh's foots is 
on Ihe development and refinement of concepts, methods, and 
(echniqiies needed by Forth professionals. 

Volume I Spriitg 19S9, Summer 1 #3, #4 91 1 - S24 2* 

F-PC, glossary utility, euroForth, SIG Forth '89 Workshop 
summary (real-time software engineering), Intel 80x8x. 
Metacompiler in cmForth, Forth exception handler, siring case 
Statement for UFyForth. 18U2 sitnulator, tutorial on multiple 
threaded vocabularies. Slack frames, diuls: an alternative to 
variables, Pt>cketForth. 

Volumc2 «l,#2.#:i,#4 912-$24 2t 

ACM SIGFotth Industry Survey, abstracts 1990 Rochester conf., 
RTX-200a BNF Paiser. abstracts 1990 Rochester «mf-, F PC 
Teach, leered FtMfa model, abstracts 1990 SIG Forth conf. 
Target-meta-cross-: an engineer's viewpoint, single-instruction 



Vi,lumc3,#lSummer'91 913a $6 1# 

Co-routines and lecumon forttee balancing, convenient number 

handling. 

Volume 3, «2 Fall "91 913b- $6 1# 

Postscripilssuo, What is Postscript?, Forth in Postscript, Review: 

PS-Tutor. 

1989 SIGFurth Workshop Procet.-dings 931 -S20 1# 

Software engineering, multitasking, inlcrropt-driven systems, 
object-on en ted I- rth, error recovery and control, virtual memory 
support, signal processing. 127 pgs 

1590-91 SlGFm-th Workshop Procecdtnp 932 - $20 l# 

Teaching computer algebra, stack -ba.wd hardware, reconfig- 
uraHle processors, real-time operating systems, embedded 
control, market ill g Forth, develMimcnt systems, in-ffight 
[iionitiiiiiij;. rr;ijlii processois, ncuraTnets, Security Control, oser 
interlace, algorithms, 134 pgs 



For faster service, fax your orders 510-535-1295 



*-Stanliig ** - biMiinMlM* **« - Advancsed 



DISKS: Contributions from the Forth Community 

The "CtT^uri hill ion!! fr<>m the F'orth Communit>'** disk library ctmutns 
auijH)i-siiliiriittt;d diwaucdS, generally in i. hi ding source, for a variety 
of c^>inpulcrs & disk R>nm3ls. Rach i ilc is determined by Ihcaathor as 
public (lomain, shareware, or use with some lestricticsns. Hnklibraiy 
docs not contain "For Sale" appEieatiuns. Toxubmilyourowncoiitn- 
hutUfnSt send them to the F/G Publirationx Commiliee. 



Prices: Each ilem below tomes on one ormcirc disks a ny tlisk? = 1 #. 



FLOAT4th.BLK V 1 .4 Robert L. Smith COOl - $8 

Software floating-point for fig-, poly-. 79-Sid., 83-Std. 
Fotths. lEHB shoct 32-bit, four sundard functions, square 
loot and log. 

IB]!H,19(IKb>F83 

Gatnrii in Furth O002 - $6 

Mist games, Co. 'I I/ITIA, Life... SourcC 
* IBM, 760Kb 

A F«rtli Spreadsheet, Craig Undley COOS - $6 

This model spreful sheet first appeared in Forth Dimensions 
Vn, 1 -2. Those issues contain docs & source. 
4 [BM, lOOKtt 

AutrnnaUcSlruUurt; Charts, Kim Harris C004*$S 
TooUfor analysis of large Forth programs, first presented at 
FORMLcoafer»Kei.FiiUsoiirce:docaiiicL in 198S FORML 
Proceedings. 

** IBM. n4Kh 



A Simptc Inrvrrnrc Kngine, Manin i'ncy 



C0O5-S8 



leased on inf. engine in Winsttxi Sc. Hom'i boolt on LISP, 
t^es you from pattern variables lo complelc unifualioD 
algoriihir),wiihrunning commentaiy on Potth philoso]^ St 
style. Incl. source. 
** IBM, 162 Kb 

The Math Ilox, Naihatiici Grossman C006 - $10 

Routifies by forenK>s I math author in Forth. Fx I ended df>uble- 
precision arithm^ic, complete 32-bit fixed-point tnaEh, & 
auto-ranging text. incl. graphics. UtiUtres for rapid 
polynomial evaluation, eontUHied fractions & tdonte dAa 
factorization. Incl. source £ docs. 
** IBM, 1 18 Kh 

AslroForth & AstroOKO Demos, I R Agumirsian C007 • $6 

AstioForth ia the S3-Std. Russian versi«i of Foitb. Ind. 
window tnlerfaoe, fiiTI-screen editor, dynamic assembler & 
a grt-at demo. AsiroOKO, an astronavigalioo system in 
.•\sii(>l on)i, i:alt ijlaie^ skv position of Several objects from 
different earth positions. Demos only. 

* lBM,7MKIi 

Pwth H a n dl«r, Maniii Tracv COOS - SS 

List primitives extend Forth to provuli; ;i llciiNe, high- 
speed envirtuMnent for AI. Incl. HUSA and Winston & 
llom's micro-Lisp as examples. Incl. source & docs. 
** IBM, 170 Kb 

8061 Embedilcd [ '« r th . W 11 liam Payne < :()50 - $20 

8051 ROMmahle Forth operating system. K0S6-to-8051 
taigetcompilcr. Incl. source. DocsaatalhebackBrnbedded 
Controller Forth for the SOSl Family. 
*** IK.M,4JMb 

68HC1 1 Colkctitin C060 - 

CoUuciion »1 I orths. Tools and Floating Point routines for 
tflcfiSllCH rontroller. 
*** IBM, 2.5 Mb 

F83 V2.01, Mike Perry & Henry Laxcn ClOO - $20 

The nsw est vemon.pwtfidtoa variety of machines. Editor, 
assembler, decompiler, metacompiler. Source and shadow 
semens. Manual available separately &ans 217 &. 235). 
Base for other 1-83 applitaiioiis. 

* IBM, 490 Kh 

FTC V3 . 56 & 'ri;OM , Tom Zimmer C2(X) - $30 

A full Forth system with pt)ll-do«'n mentis, sequential files, 
eiilior, lor ward assembler, tnelae^.>tr]pi!er, floating point. 
Complete source and help files. Manual for V 3. 5 available 
separately (items 350 & 351). Base for other F-PC 
applicatiutts. 

* IBM, 83, 3,5Mb 

F-PC TEACH VI 5, lessons 0-7 Jack Brown . C201 - $8 

Forth classroom on disk. First seven lessons era leunmg 
Font), t roiii Jack Brown of li.C Institute of Technology. 

* lBM,r-PC. 790Kb 



VP-PlanncrFloatforF-PC,Vl 01 Jack Brown C202-$8 
Software Hoaling-poinl engine behind the VP-Plannerspiead^ieeL 
RO bit (iemriorar\ -real) tiuitines with tjansccndenUl functions, 
number I.'O support, vectors to si^iport numeric co-procesjor 
overlay & user iS AN checking. 
** IBM, F-PC, 350 Kb 

F-PC Craphics V4.<;, Mark SmUcy C203 - SIO 

"Hie latest versions of ricw graphics routines, Inchiding CO A, 
I^A, and VGA sufipport, with numerous in^rovemenu over 
earlier versions creaieo or simponed by Mark Smiley, 
** lBMDSI>D,P-lPc7«WKb 

PbcketFwth V6. 1 , Chn^ I leilm^n C300 - S12 

lunallest compldc Forth tor the Mac. Access to all Mac funuions. 
Events, files, graphics, floating poim, maEsos, create siandalonc 
appHcalions and DAs. Based on Sg A Starting Forth. Ind. source 
ana manual. 

* MAC, £40Kb,Syaem 7.01 Compatatale. 

K«v» V0.9b4, Aniero Taivalsaari C360 - $ 10 

Complete Forth-like obje« Forth for the Mac. Oliieet-niolatype 
access to all .Mac functions, files, graphics, floating poinl, macros, 
create stanLi;di>iic applications. [S^d source not stcloded, 
extensive demo Jiles, manual. 

MAC, 650 Kb, System 7,01 Compauble. 

Yerkcs Forth V3,6 C350-S20 
Complete object-oriented Forth for ihc. Mic. ^)bjcct access to all 
Mac functions, files, graphics, floating point, macros, create 
standakneimplicaiions JncL source, tutorial, assanUcr&manual. 
** MAC, 2<4Mb, System 7.01 Compatable. 

Pjfgm V V 1 .4, Rank Sergeant C500 - S20 

A lean, fast Fbith with full source code. Incl. fuU-saeen editor, 
assembler and metacompiler. Up to 1 5 files open at a time 
IBM, 320 Kb 

KFm4h.GuvKcUy C600-$20 
A nill Forth system with windows, mouse, drawing and modnn 
packages. Ind. source & docs. 
** IBM, S3, 25 Mb 

Mops V2.2. kfidiad Hotc C710 - 320 

Qose cousin to Yerkes andNeon. Very fast, compiles subroutine- 
threaded & native code. Object oriented. Uses F-P co-piocessor 
if present. Fill I aetcss to Mac l(x)lbo\& systt-m. S«[)[-nitts System 
7 Ce-g-, AppleEivetils). Incl. assembler, docs & source. 
** MAC, 3 Mb^ Syston 7.01 Cumpat^lc 

BBL & Abundance, Rocdy (Imen CSOO - $30 

BBLpublic-di^tiain, :ft bit Forth wiihcxlensivc support of IXJS, 
meticulotjsly oplimi/^^d for execution speed. Abundance is a 
publie-domain database language written in BBL. intll. source & 
docs. 

IBMHD,UJMb, hard tilsk required 



Hew Version Replacement Policy 

Return the old version with the FIG 
labels and get a new version 
replacement for 1/2 the current 
version price. 



MISCELLANEOUS 

T-SHIRT "May the Forth Be With You" fiOl -$12 1# 

(Spe ei (y s i ic : Sm a 11 , .VI cd] ti m , 1 J rge, E]Ur«-L«t£e on orderform) 
White design on a dark blue shin. 



FOSTEK {Oct., im BYTEcavtry 
FORTH-83 HANDY REFERENCE CARD 



683-firee 



FORTH-83 STANDARD 30.5-515 1# 

Authoritative description of Forth -S3 Standard. For reference, not 

inslnJillon. /jyv 

BlBLItXiRAPUY OF FORTH REl' ERENCES 340 - S t B 2# 

(3id ed. Jsnnaiy 1987) 

Over 1900 references to Forth articles throughout computer 

literature, /0-/pj^,v 



For faster service, fax your orders 510-535-1295 



THEY'RE BACK 



JFAR BACK ISSUES 

Vduine2,iM IFAR(19S4) 705 -$1S i# 

Extended Addressui^: Biuoaiy Search, VAX &. 79 Stmdaird, 
Token nmadfLd Path. 32 Bit Madtioe, Inpleniraltblg Local 

Words in Forth 

Volume 4, #1 JFAR {1986} 7i0-$15 1# 

Enpen Systems in Foidi: Natural Language Parsing, Mkio- 
Computcr Based Medical DUgDOlia Syslem, FORTES 

i'olysomnographcr, F'ORPS 

Volume4,#3 jyARimi) 712- $15 1# 

REPTL, Stand -Alone Forth System.Cotnpiling Forth, Julian Day 
Numbers, Absuam 'S6 FORML Cenfteieace; 

V<4iiin«4,«4 JFARaWT) 713 -$15 1# 

Embedding of Languages in F(»th, Foith-tHsed Prolog for Real- 
'nme fopeit Syttenu S/KffD. 

Volume 5, fl2 JFAR (1988) 715 -$15 1# 

Matiieniatics, ANS Standard, Exception Handling, Logarithmic 
Number Reprewniatian, 32 bit RTX Chip Pintolype 

ViilinneS,#3 JFAR(19S9) 716-315 1# 

Prom Runia with F<»tli, Knowledgo EnginMtiBg, Symbolic 

Stack Addressing. 

Volume 5, #4 JFAR (1989) 717 -$15 l# 

I'oftli I'rixr^-iDr-;, Parallel Forth, Arii>imait-SiJitk Processor, 
Archiiccture of ifie SC32 Forth Fjigine, ijiror-Free Statistics in 
Foith 



Volume 6, n JPAR (1990) 

Harris RITtZOOO^ ScientifiG Pragranming 



718- $15 1« 



MORE ON FORTH ENGINES 

V«linMlO Jania(yl9S9 SIO-SIS 1i 

VTX reprint; from IP88 R«ebefterFoiA Cooierenix, object- 

orienledcmForth.teMerFoiiliao^tiet. 87pgs 



Volume 11 July 1989 
RTXsuppiefnem 



Forth engine. 



lent u> Footsteps in an Empty Valley, SC32, 32-bjt 
RTX ifiiemipU utiliiy. 93pgs 



811-515 1# 



Volume 12 Aprinwn Sll-SLIl* 
ShBoom Chip architecture and instructions. Neural Ccniputiiu 
Modub:NCM323Z,pigForth, binary radix sort on 80236, 6SQ10, 
andRT>C2000, S7pgs 

Volume 13 Otiober 1990 813-515 1# 

PA1.S of the RTX2000 Mini-BEE, EBForth, A^orth, RIX- 
2101, 8QS6eFonh, 8051 eForth. m pgi 

Volum«14 814 $15 m 



t-Scope^ 

M& 280, XMODEM for cFoKh. 116 pgs 

UK 15 815-S15 1# 

Moore: NewCADSystem/orChipDetiMi, Apoitraitof lheP20; 
Rible: QS 1 Forih I'rxsccssor, QS2, RISCing it all; P20 eFcnh 
Software Simulator/Debugger. 94 pgs 

Volume U> 816 -$15 1# 

OK CAD System, MuPZO, eFoith System Words, 386 eFbtth, 
S03S6 Protected Mode Op^tiud, FRP 1600 - 16Bit Real Ttmc 

Prtx:cssor. /fW p^s 

DR. DOSB'S JOURNAL 

Annual Forth iswe, mcludei code for Various Foflh amdications. 
Sept. 1982 422 -SS 1# 

S«|rt.l$» 423-55 1# 

Sept.1984 424 - 55 1# 
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•Membership in the Forth Interest Groiip 
□ New DRenewal $4fV46/52 











'MEMBERSHIP IN THE FORTH IHTSREST GROUP 

Th»^hliMaitGFaw(FI6)t»«wwlMda,noiHPi'Olft.n>w)nbar4lf^^ 

Forth DImB ml e m . F1Q alM<>ttere)lainsrnbefs an on-lne data bas*. a large setoetlonef Forth liMalurs and C«ctls*>OperyeailoiU.S.A.SCana!fanjiface;$4eCana!laa^inBl; 
all CI hdr cQunlrtM $52 p«r year. TTits tw iruzMw %^^*& tor foftti Dlrnonshna. Ua sales tax.handBr^fee.ordiscoirnton rnerr^rship . 

When you join, yuurlirsi issue wil arrive in four to six wee'l^s; subsequent issues will be rriai !iie/^repi>bii^l^i'd— aix i^sje? ^w. Your rrv>rT^ersiiipentEtlefi ]|au1oa10% 

discoiinT on publications and functins of FIG. Dues are not deductMe as a ctiaritabia comrlbutiDn for U.S. f«d«ral income t^u Dvr^ii^. but inay be Oeducttble as a business expense. 



MAil ORDECIS: 
Fonh iT9rfl[i1 Group 
P.O (if. ?'M 

PHONE OROt^nS: 
510-89-FORTHCre!)itcard 
orders, customer service. 
Houre: Mon-Fri, 9-5p,nt. 



PAYIUSNT MUST ACCOMPANY ALL ORDERS 



PRICES: All orders must b« prep^iid. Prices are 
subject to chanjpe writlioul notice. Credit card orders 
wii I lie «aii and bllM at ounam prisB*. tawoka nwu 
be In U,S. doRais. drawn on a U.S. banK. A S10 
cfiargenvlll be added for rorurntKi ctiecks. 



POSTAGE: 

Al orders calculate postage as 
number ol #a llmei eelened 

postage rate. Special Itandiing 

fivailable on rfifjuest. 



SHIPPING TIME: 

Boolia In BtoOk are shtiped 

within seven days of lecetx of 

Ihe order. Pift,iso allow 4 -6 
wnaltfi for oijl of-stock boolis 
(delivt^n^s in n]a)H casos will be 
jrnich ^Mner}. 



•* CAUFOHNIA SALES TAX BYCOUNTV: 
7.5%: Sonoma; 7.75%: Fresno, Imperial, 
Inyo, Madera, Orange. Rtverelde, Sacra- 
mento, San 9«nito, Santa Etaitiara. San 8ar- 

fl.TrtJino, S-Tn r}if>^&. nnd San Joaquin: 
Mrir^tica, Contra Cos^a. Los Angeies 
San Mattxj, Sttnta Clara, and Sania Cruzj 
a.S%: San Fiandsoo; 7.25%: olt»i couiMm. 



For faster service, fax your orders 510-535-1295 



XIV-6 



Che address into memory. This is accomplished by the phrase 



SMUDGE 
IF DROP 
SMUDGE 



-FIND 



ERROR THEN 



Ot is possible to dispense with the necessity for naming 
the namesake word by playing with the contents of the user 
variable IN f>lN to neo- and mezoforthwrights). The imple- 
mentation will l)e left as an exercise for the student It was 
not implemented to save space in the dictionary, not because 
the author ^ras lazy.) 

Another general caveat i.s th.n [he optimizer must not 
opdmii^ across branch terminations. While it might be 
acceptable to optimize the phrase foo fS, the phrase FOO 
THEN F@ is not readily optimized. As THEN is an immediate 
word and leaves nothing in the dictionary where the 
optimizer can detect its passage, we must redefine it to leave 
a flag. 'iTiis is done on .screen 58S This is why the mn-time 
portions of our optimizers examine the variable OPT imme- 
diately after they examine STATE. 

Two defining words have been produced. UNARY is used 
to optimize words which are unary operators. That is, they 
take one item from the stack and operate on it, leaving one 
or zero items on the stack, binary is for words which take 
two items on the stack, and leave one. For examples of 
daughter words, see screen 589. 

The Implementation 

With the basic conccpLs laid down, we can expand our 
optimizer in three ways. We can add new delining words, lor 
new classes of of)tiniizcrs. We can add new daughter words 
to the existing defining words. We can add new capabilities 
and, if needed, new parameters to the existing defining 
words and itieir daugliler words. 

The last method of extension is how the optimizer words 
were produced in the first place. The programmer started out 
witli a default aclioii (eompilc the namesake, as usual), and 
one lest and one action for a desired condition. As new 
phrases were considered for optimization, the nesting of IF 
„. ELSE ... THEN clauses coniinued apace. 

Ibis methodology allowed for incremental testing of the 
words under development. Screen 590 shows a test for the 
l)i[i;iry ofX"ral{.)r AND. Tfie test is done by compiling two 
words. One li a cudc dcliuiUoii, consisiiug of tlic desired 
output for the conipilci I hc other is a test high-level word 
which exercises the optimizer. Screens 591 and 592, not 
shown, contain the target defining word and daughter 
woicls. 

The last two lines of the screen compare ilie two words 
and disas.semb1e\decompile them both automatically as part 
of ihc (. nrnpilation process, 'llicse two tests almo.st instantly 
indicate problem areas with words under development 
Automated testing of compiler output in this manner allowed 
vcr\' fa.st, reliable development of the optimizers, and was 
essential to the success of the project. 

Onoe the basics of the optimizing code have been worked 
out, it remair\s only to incrementally add functioas to analwe the 
code and handle the phra.ses where optimiiaiibn is desired 
Forth Diver^tons 



Selecting Phrases for Optlinl2atIon 

If you have your own target compiler and nucleus source, 
the best way to optimize all possible applications is to 

improve the nucleus. Anything that improves BLOCK will 
improve words that call BLOCK. So as FastForth was devel- 
oped, optimizers were added to the target compiler as well 
as to the FastFonh environment. The choice of phrases to 
optiml'/e refleas an effort to improve the micleus first, with 
improvements elsewhere sec rtnclaiA- 

As noced, the phrase <tJSER VARIABIjE> F@ shows up all 
over the nucleus. Similarly, <USER VARIABLE> F ! , <USER 
VARrABLE> OFF and <USER VARIASL-:;> 1 5 ! . The optimi- 
zations of F@ and F ! were primary, with the others second- 
ary. These are the phrases to be optimized by the optimizer 
defining word UNARY, on screens 5H6 and 587. 

These words also operate with variables and often with 
constants. Both variables and constants compile to in-line 
literals, cither in the form of <value> @#L S - [ MOV, or in 
the form of <value> # DR7 MOVQ, DR7 S - [ MOV, for 
literals in the range of (hex) -80 to 7f I lowcver, since most 
variables and constants used as variables will be long values, 
it is essential to detea long literals, with short ones a possible 
addition for ihe siLident. 

'ITie long literal form compiles inio: 

<value> S -[ MOV, 

After manipulation by F@ the code should look like this: 
<value> @#L ARO I^OV, ARO [ S -[ MOV, 

After manipulation by F ! the code should look like this: 
<value> 0#L ARO MOV, S [+ ARO [ MOV, 

This means that the code in UNARY will twiddle the 
literal's opcode lo cha ugc iLs destination, andlay down a new 
instruction. Since the instruction will vary with the word 
being compiled, this must be provided as an operand to each 
opUmizera.s it is compiled. Hiis instance is handled on screen 
587, lines ilirce and four. 

With nuclear optimization in mind, the phrase <USER 
VARIABLE> F@ F@ is handled as well. Ibis phrase shows up 
in places that affect compiler speed, such as in -FIND or 
LATEST. Any applications which use double indirection will 
benefit. 

The next defining word for optimizers is the family of 
binary words, Tliese are words which, prior to optimization, 
take two operands from the stack and return one. These arc 
+, -, etc., as indicated on screen 589. In code they take the 
form: 



S [+ DR7 MOV, DR7 S [ <0pC0de>, 



NEXT 



If we can detect literals and Li,ser variables, and see lo it 
that their contents are left in DR7, we can then compile the 
appropriate opcode to complete the operation, saving a push 
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to and a pop from Uie data sLack. 

For example, adding a byie literal to the top of the stack 
becomes; 

<value> # DR7 MOVQ, DR7 S [ ADD, 

Similarly, adding ihe contents of a usen«iriable to the top 
of the stack goes from: 

<user vaxiable> U & [ DRO MOV, DRO S - 1 MOV, 
S [+ DR7 MOV, DR7 S [ ADD, 

to: 

<user variable> U &[ S [ ADD, 

This optimization gets rid of three instmctictfis and 
produces an optimization of fiswer instniciions than original 
source words. Not bad for notbeii^ an example of Moorish 
architecture. 

To return to the ori^al example, an updated table taking 
into account the optimizer is as follo«ra: 



Progressive optimization improves the example 



Item 


JSR/BSR wf ODtimizer 


liMfiraet Threaded 


code field 


bytes 


Four bytes 


SCR 


Part of a four-byte instruction 






laid down in line. 


Fourbyt^ 


F@ 


The rest of the tour-byte instruction. 


Four bytes 


UST 


Two, tour or six bytes of BRA or JIVIP, 


Four bytes 


exit code 




Fourbvtes 


Total 


10 bytes, maximum 


20 bytes 



Comparison: Traditional Compilers 

A conceptually simple but ver>' powerful Forth code 
0{Mimi2icr can be had in five screens, less than two pages. 
One has prnblcm.s imagining a traditional conijiiler with 
optimization oct iipying so .small a source code space. Also, 
one has a haid time imagining the 1 ikes of A'l'&' r or Microsoft 
releasing source for their compilers. And you don't have to 
call a 900 number to get support. 

Furthermore, the optimizer presented here is a complete 
unit, and can be removed from the FastForth environment 
without any changes except, of course. In the size and speed 
of the generated code U is dependent only upon the nature 
of the target processor. 

Additional phrases may be selected for optimization by 
the user, who need only add them to the compiler in the 
traditional Forth manner. Eventually, a diminishing return of 
better speed and code size must be offtet against develop- 
ment time and costs. Unlike the traditional compiler, this 

tradeoff may be made by the 
etid user, the application pro- 
grammer, if he wishes. In fine 
Forth tradition, the application 
programmer may modify Lhe 
compiler to suit liis applica- 
tion, rather than the usual 
methodology of modifying the 
application to fit liie compiler's 
Procrustean bed. 

Indeed, ttie very notion of 
an application programmer 



Total control 
mthLMI FOIirH~ 

For Programming Professionals: 

an expaiuiing temily of compatible, higti- 

pertommmx, compffers ftwrnfcfocomputefs 



For Development: 

tnteraictive R)rth-83 Interpreter/Compilers 
tor M&OOS, OS/2, and ihe 80386 

• Full scfeen edttdf and assembler 

• UsessteiKlanlii9eraiing8v9l8>mffl«s 

• 500 page nianu^witleri In i:rfain English 

• Support for graphics.floalirig point, iiatlve code gerteralion 



For Applications: Forth^ Metacompiier 

• Unique taUe-drtvsn mutti-pass Rmh compiter 

• Compiles compact ROMabte or disk-based applicatioris 

• Excellent error hartdling 

• Produces fwaderless code, compiles from intermediate states, 
and performs condttional compilation 

• Cross^»mpiles to B080, 2.80, 8088, 68000, 6502, 8051, 8096, 
1802, 6303, 6809, 68HC11,34010, V25, RTX-2000 

• No license fee or royalty for compiled appiicalions 



Mi 



Laboratory Microsystems Incorporated 
Post Olflce Box 10430, Marina delRey, CA 90S95 
Phone Credit Card Orders to: (310) 306-74 IS 
FAX: (3m} 301-0761 



having Ihe ability to modify his compiler is a heresy to the 
ayatollahs of traditional computing. 

Conclusions 

'I'he FastForth code optimizer produce.s fast, efficient 
code. It is easy to understand, and can tac modified readily 
by the end user. It is very poweiful and conceptually very 
simple. Indeed, anyone reasonably familiar with the instruc- 
tion set of his target processor and the inner workings of his 
Forth can write one. Like Forth itself, it makes an abattoir of 
the sacred cows of computing. 

Availability 

In the best Forth tradition, the code is released to the 
public domain. Enjoy it in good health. 

FastForth for the Atari ST, including the above code, may 
be had in alpha release from the author, Charles Curley, P.O. 
Box 2071, Gillette, Wyoming 82717-2071. Please consult the 
author for the current state of documentation, etc. 



Chnrlo5 Ciirloy is a long-time Forth nuclear guru who lives in Wynmir-fj When not 
working on computers ho loaches firearms safely and perscns' so ! ^jo'cnse. His 
lorihcoming txxik Folito Soc/^ covers federal aTKl ^tale fireanrs iogislatiort in 
layman's terms. 
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Forth Dimansions 



Optimizing Fortii 



Sor # 585 

( optimizers for : defa {22 3 92 CRC 11:05 ) 

1 BASE F^i HEX 

2 VARIABLE OPT ( not particularly re-entrant! ) 
3 

4 : THEN HERE OPT F! [COMPILE] THEN ; IMMEDIATE 

5 

6 : BEGIN HERE OPT E! [COMPILE] BEGIN ; IMMEDIATE 
7 

8 : OPGET ( addr ct I get operand ct bytes from addr ) 

9 + W@ ; 
10 

11 

12 — > 
13 
14 
15 

Scr # 586 

( optimizers: unary (15 4 92 CRC 8:37 ) 

1 : UNftRY CREATE SMUDGE -FIND IF DROP , ELSE ERROR THEN 

2 SMUDGE W, W, W, IMMEDIATE 

3 DOES> STATE F@ { only if con^iling. . . ) 



4 IF HERE OPT FS - ( not following a begin] 

5 IP HERE 6 - W@ 273C ~ ( following a literal? ; 

6 IF 4 OPGET HERE 6 " Wi ( yyy ** @#1 xxx, 

7 ELSE HERE 2- W@ 2708 = ( arO 3 -[ mov, eg user 

8 IF -2 ALLOT HERE 4- W0 41EE = ( user variable? 

9 IF 6 OPGET HERE 4- W! ( yyy u ** &[ XXX, 
10 ELSE 8 OPGET W, THEN [ ( yyy arO t XXX, 



11 — > 

12 

13 

14 

15 

Scr # 587 

( optimizers; unary (21 4 92 CRC 8:15 ) 



1 ] ELSE HERE 4- W@ 272E = ( user f@ optimize ) 

2 IF 20 6E HERS K! 8 OPGET W, 

3 ELSE HERE 6 - W@ 2739 - { literal f@ optimize ) 

4 IF 2079 HERE 6 - wr 8 OPGET W, 

5 ELSE F@ <COMP> THEN THEN THEN THEN 

6 ELSE F@ <COMP> THEN ( following br resolution ) 

7 ELSE 8EXECUTE THEN ; ( not COnipisling ) 
8 

9 



10 : BINARY CREATE SMUDGE -FIND IF DROP , ELSE ERROR THEN 

11 SMUDGE W, W, IMMEDIATE 

12 DOES> STATE F@ [ { only i£ compiling... ) 

13 — > 
14 

15 

fastForth on Atari ST {c) 1985-92 by Charles Cur ley 

Tuesday 6/ 10/ 92 11:20:08 

Ca>deeontinmsontusapageJ 
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Scr # 588 

( binary defining word (21 4 92 CRC 8:15 ) 

1 ] IF HERE OPT F@ - { not following a begin) 



2 IF HERE 4- C@ 70 = ( byte literal? 

3 IF HERE 4- E TOGGLE ( XX # dr7 moveq, 

4 -2 ALIiOT 4 OPGET H, ( dr7 s [ xxx, 

5 ELSE HERE 6 - WS 273C « ( large literal? 

6 IF 6 OPGET HERE 6 - W! ( yy #1 s [ xxx, 

7 ELSE HERE 4- W@ 272E = ( user f@ ?? 

8 IF HEBE 4- 9 TOGGLE 4 OPGET W, ( of user s [ add 

9 ELSE HERE 6 - W@ 2739 = ( literal f@ ?? 

10 IF HERE 6-9 TOGGLE 4 OPGET W, ( lit dr? mov, 

11 ELSE F@ <COMP> THEN THEN THEN THEN 

12 ELSE F@ <COMP> THEN ( following br resolution 

13 ELSE eEXECUTE THEN ; ( not cosfpiling 



14 — > 
15 



Scr # 589 

( daughter words (20 4 92 CRC 13:22 ) 

1 ( opget 8 6 4 ) 

2 5290 52AE 52B9 UNARY 1+! 1+! 

3 4290 42AE 42B9 UNARY OFF OFF 

4 209B 2D5B 23DB UNARY F! F! 

5 2710 272E 2739 UNARY F% F@ 
6 



7 { 


l.w. lit 


byte 


lit 






8 


693 


DF93 


BINftRY 


+ 


+ 


9 


493 


9F93 


BINftRY 






10 


93 


8F93 


BINARY 


OR 


OR 


11 


293 


CF93 


BINARY 


mo 


AWU 


12 


A93 


BF93 


BINARY 


XOR 


XOR 



13 BASE F! 

14 



Scr # 590 

\ test area for macro mods (21 4 92 CRC 7:08 ) 

1 DEBUG FORTH DEFINITIONS FORGET TASK 

2 : TASK ; BASE FS >R HEX 

3 : ?LEN: [COMPILE] ' 2- W? ; 

4 VARIABLE SNARK 

5 CODE FOO ofuser fid dr7 mov^ dr? s [ and, 

6 snark @#1 dr7 laov, dr7 s t and, 

7 7f # dr7 movq, dr7 s [ and, 

8 ffff #1 s [ and, 

9 NEXT ;C 
10 

11 12 +THRU 

12 : BAR fid f@ and snark f@ and 7f and ffff and ? 
13 

14 R> BASE F! EDITOR FLUSH ?CR ?LEN: FOO ?LEN; BAR 

15 ' FOO DUP 2- we ' BAR EDITOR -CITEXT . UN: BAR UN: FOO ;S 

fastForth on Atari ST (c) 1985-92 by Charles Cur ley 

Tuesday 6/10/92 11:20:14 
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Aiatf^— 

Who Needs It? 



Prof. Tim Hendtlass 
Hawthorn, Australia 

The title oF this article is a clelibciraic (double entendre. 
Whatever one's feelings alx>Lil matJieniatics in general, 
arithmetic Cat least) is going to be needed sooner or later in 
your programs. One of the most striking things about Forth, 
quickly noticed by people who are used to another language, 
is that l6-bil integers are the only types of nundseis appar- 
ently directly supported in basic f-orth. A closer inspection 
shows that this is not strictly tmc, but certainty there are no 
floating-point numtjcrs defined in the core wortb of Forth. 
Hie reason is, of course, that you can add anything ycu m^ht 
want or need to Forth, so why saddle people wth things they 
may not need? If floating point is really required, for example, 
you just add it, to whatever accuracy you need, 'i'he 
collection of routines in this article are my compilation of 
math words with var\'ing precision, s[ieed, and portability. ! 
did not write all of them and have gratefully acknowledged 
the original authors in the text. 

Before rushing in to add new math words with extra 
capabilities, it is wise to see if these capabilities are really 
needed. In some situations certainly, but not in others. Since, 
provided tbe same a^orUbms am used, floating-point math 
executes more slowly than fixed-point math, and fixed-point 
math t;xecLitcs more slowly than double precision, and 
double precision executes more slowly than single-precision 
math, it makes sense fiom the point of view of speed not to 
use any more capability than yon need. Also, the code size 
in bytes will vary depending on the precision of the math you 
use, and whether it is written in hi^-level Forth or mainly in 
assembly language. As well as the code, there are tables 
showing the relative speeds and memory requirements of the 
words described; this is to allow the reader to pick the one 
that best meets the requirements of tbe task at hand. 

First let us define a couple of terms concerning the 
representation of numbers: the resolution and the range. 'I'he 
resolution is the minimum possible change that can be 
represented in a number fomax. For integers it is one. The 
range is the difference ix;lwccn liic largest and smallest (or, 
in the case of signed numbers, the most negative) numbers 
that can be expressed. Integers' resolution is always one, and 
the rar^c goes up as the number of biLs in tlie integci" ini; r cases. 

For fixed-point numbers, ifie numbci is ejcpresscd in a 
single quantity. Depending on how many bits (tf this quantity 



you alkx.ate for the fixed decimal placx,'S, the resolution and 
the range vary inversely (e.g., the greater the resolution, the 
smaller the rar^). Fixed-point math is verj? closdy related 
to integer math, except that all numbers are stored internally 
after having been multiplied by an integer scaling faaor. 
They are divided by thi.s scaling factor before being output. 
This allows a number of decimal places to be provided while 
still treating the numbers as integers Since you still represent 
numbers in (say) 32 bit.s, the actual range would be that for 
32-bit integers divided by the scaling factor. See Tabic One 
for si^^d numbers, for which the range is the difference 
between the largest and smallest numbers that can be 
represented. (For unsigned integers the range would be the 
same, but from zero to me more than twice the value shown 
uncler "I.argest [positive number,") 

Floating-point numbers are .stored in two pans, one 
expressing an integer numbCTand the other the power of 
(usually) to which this integer shouki be raised to give the 
final number. If this power (the exponenO is positive, the 
number represented can be very large and the resolution 
small (ten to the power of the exponenO. If this power is 
negative, the number represented can be very small and the 
rcsolutinn high. Using floating-point representation, this 
tradeoff between range and resolution can alter dynamically 
without any explicit attention by the programmer as the 
ma^itude of flie numbers being used chariges. 

Single-precision biteger AritfanKtlc 

This is fully provided in F-PC, as in all Forths. The largest 
positive signed number that can be represented in 1 6 bits is 
+32767 and the largest negative signed number is -32768. The 
smallest number is zero. Of course, since we are dealing with 
integers, no decimal points are allowed. The four basic 
functions (add, subtract, multiply, and divide) arc provided, 
plus modulus (mod), absolute (ABS), and special routines to 
multiply or divide by two (2* and 2/). In Wnary, multiplying 
and dividing by i^'O are the same as jast shifting all bits in liic 
number left and right, respectively, by one place. In the case 
of a left shift, the bit moved into the least significant place is 
;ieiu; in Uie case uf a light .shift, Llic Ijit moved in ii.-i the most 
significant bit must be the same as tlie previous most 
significant bit, in order to preserve the sign df the number. 
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Figure One. 32-bit integer arithmetic. 



Multiply two double-precision mimbers to give a double- precision product 

Uaslgned with overflow check. 



: UD*C ( udl ud2 — ud3 ) 
d.up>r rot dup>r >3: over >r 
>r swap dup>r 

urn* 

2r> um* <i+ 2r> um* d+ 
2r> urn* d+ 

or 0<> abort" D* overflow" 

r 

Unsigned widiout merSkfw dwdc. 

: UD* ( udl ud2 ~ ud3 ) 

rot >r over >r >r over >r 
um* 

2r> * 2r> * + + 



\ Unsigned double * unsigned double = unsigned double 
\ put a c c b on return stack 
\ put a d onto return stack 
\ b*d 

\ offset 16 bits, add on a*d+b*c 

\ offset another 16 bits, add on a*c 

\ check for overflow 



\ Unsigned double * unsigned double = unsigned double 
\ put c b a d on return stack 
\ b*d = part of 32 bit answer 
\ a*d+]o*c= addition to top 16 bits 



Signed with or without overflow check (replace ud* by ud'c to check for overflow) 

: D* < dl d2 — d3 ) \ Signed double * signed double = signed double 

dup>r dabs 2swap dup>r dabs \ #s +ve, keep info to work out final sign 

ud* \ get 32 -bit answer {ud*c for overflow check) 

2r> xor ?dnegate \ work out and apply final sign 

Division C Uo • 2l6 +ui ) / (Vq ' 2l6 + Vji ) - (Aq ' 2^6 + Ai ) 

\ Use fast algorithm, remainder requires an additional 
\ 32-bit multiplication and subtraction. 

; T* ( ud un — ut ) \ Unsigned double * unsigned single •< unsigned triple 

dup rot um* 2>r \ high-part o£ answer to return stack 

um* 2r> d+ \ get low-part ans offset 16 bits add on high -part 



t/ ( ut un — ud ) 
>r r@ um/mod Swap 
rot r@ um/mod swap 
rot r> um/mod swap drop 
2swap swap d+ 

U*/ ( ud unl un2 — ud2 
>r t* r> t/ 



\ Unsigned triple / unsigned single = unsigned double 
\ divisor to r, divide top 16 bits, rem to top 
\ corrtbine with next 16, divide these by divisor 
\ repeat for last 16 bits, lose final remainder 
\ combine parts of answer to for final answer 

\ ud * unl / un2, triple intermediate product. 



TJD/ ( Ui UO ViVq ~ Ai AO ) 

dup 0- 

if swap t/ 

else 

dup 65536. rot 1+ um/mod >r 
drop r@ t* drop 2>r 

dup 2r@ u*/ d- 
2r> r> -rot nip u*/ 
nip 
then 

D/MOD { dnl dn2 — drem dquot ) 
2 pick over xor >r 
dabs 2swap dabs 2swap 
4dup ud/ 2dup 2>r 
ud* d- 

2r> r> ?dnegate 

D/ ( dnl dn2 — dquot ) 
2 pick over xor >r 
dabs 2swap dabs 2swap 
ud/ 

r> ?dnegat6 



No remainder 



\ Unsigned 32-bit by 32-bit divide. 

\ top 16 bits of divisor 0? 

\ simplG case, make it a triple, do the division 
\ more involved case 

\ work out scaling factor D,save on return stack 
scale denominator, move to return stack 
calculate (U-uO*Hl/WO) 
multiply by (D/HO> 

make answer double 



\ Divide two signed double numbers. 

\ work out sign of answer 

\ convert numbers to positive 

\ do the division, save copy of quotient 

\ calculate the remainder 

\ retrieve answer, apply final sign 

\ Divide two signed doubles, no remainder, 

\ work out sign of answer 

\ convert numbers to positive 

\ do the division 

\ retrieve answer, apply final sign 
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Table One. 



' Range 



Resolution 





Wbrd 


Decimai 


Scaling 


Largest positive 


Largest negative 


Smallest 




size 


places 


factor 


number 


number 


increment 


Integer 


16 ' " 


6'"'" 


na 


32767 


-32768 


1 


Integer 


32 





na 


2,147,483,647 


-2,147,483,648 


1 


Fixed point 


32 


1 


10 


214,748,364.7 


-214,748,364.8 


.1 


Fixed point 


32 


2 


100 


21, 474, 836.47 


-2, 147, 483, 648 


.01 


Fixed point 


32 


3 


1000 


2, I'JT, 463. 6-17 


-2,147,483.648 


.001 


Fixed point 


32 


4 


10000 


214,748.3467 


-214,748.3468 


.0001 



Numlx;rs tan tx; entered in line by just typing them, and are 
printed with . (and its fomiatEed cousins .Retc.). 

Also provided are the wor<b UM*, and UM/MOD, the 
building blocks on which all higlicr-prccision arithmetic is 
built. The first two take two unsigned l6-bit numbers and add 
or multiply them to give an unsigned 32-bit result, um/mod 
divides an uasigned 32-bit number by an unsigned l6-bit 
number to give a 1 6-bit result and a 1 6-bit remainder. One 
thing Forth does not have is a cany bit — if die result of a 
mathemarical operation is too large to fit into the available 
space, the topmost bit(s) wil! be lost. Since tiiis can legiti- 
mately happen when performing multi-precision arithmetic, 
we need to find a way to aJJow for these "lost" bits — in short, 
to synthesize a carry bit. Hiis is not hard, but adds a little to 
the time taken to do ihing.s. Rouiines written in assembler can 
use tlie internal carry bit of the processor, but will no longer 
be portable to other processors, 

Doubte-ftredsion Integer Arithmetic 

A limited double-precision capability is built into all 
Forths with doubfc-numbcr extensions, and F-PC is no 
exception. A double-precision number is one that is ex- 
pressed in 32 bits, ratlicrihan the 1 6 bits of a single puecision 
number. Since these are still integers, double-precision 
numbers can represent much larger numbers, fi^om 
+2,l'i7/i83,6'^7 to -2, M7,483,6'i8, in fad. When do you need 
them? When you can't express what you want with single 
precision, naturally. I'or o^mple, suppose you wanted to 
store the number of oents you made per yean in all 
probability, l6 btL? would not be enough, as it would only 
allow you to earn up to .ihout S320 per year. If you think 
about that example, it may occur to you that, since ccnte are 
the fractional parts of a dollar, you have a sort of two-dccimal- 
placc, fixed-point arithmetic here. As long as you add or 
subtraa numbers, the fixed implied decimal point will stay 
in place; but if you multiply or divide, the implied dedmal 
point gets messed up. Below we will .see how to correct thaf, 
but first let us consider what double precision integer 
facilities are provided. 

Of the four basic fimctions, only addition Cd+) and 
subtraction (D-) are provided directly; in a moment we will 
generate D* and D/ (among others). To print a double 
number, there is D. (and its formatted cousin D.lO- A 
double-predsion absolute vahie word is provided (Ijabs), 
There are also limited double-preci.sion comparisons: D=, D>, 
D<, and DO*. To input a double numtx;r, either from the 
keyl>oard cx in line in a definition, all you need to do is put 

Forth Dimensions 



a decimal [X»int in the nunilx-r somewhere. This u.se of a 
decimal point to indicate a double number can lead to 
misunderstanding. It is intended for when you are using an 
implied fixed decimal place, but it often misleads people into 
believing that the decimal part will be correctly handled. It 
won't, unless you specifically use words that do so. If you 
were to enter the number 31415., the number in the two 
pasitions on the stack would be no different than if you had 
entered 3-1415. However, the number of digjte after the 
decimal place is recorded in the sysiem variable DPL, 
especially for when you need this information. (As ttie same 
variable is used for all numtx^r input, you had better collect 
the value from DPL and use it, or put it somewhere safe 
before the aext number arrives.) In the first ase above, DPL 
would contain zero; in the second ca.se four. 

The main words we need to add to flesh out our double- 
precision integer capability are D* andD/. D* may produce 
an answer that is too big to fit into 32 bit-s (just as * may 
produce an answer too big to fit in 16 bits). It is possible to 
provide a run-time check to detect this (just make sure that 
the top ,32 tails of the answer are zero), but this takes time. 
If you are sure that overflow will not occur in a problem, there 
is no need to calculate the top 32 bits of the answer. Code 
to perform 32-bit by ,32-bit multiplication, with and without 
overllow check, in given lx;low. In each case, we do 
unsigned arithmetic (both numbers are assumed positive); 
lor signed arithmetic, we work out the sign of the answer, 
make both numbers positive, do the multiplication, and then 
apply the correct answer sign. 

The algorithm for 32-bit multiplication is built from the 16- 
bit multiplication we already know how to do. Consider the 
following, 

(a*2l6 + b) * ((^216 + d) = (a*c)*232 + Obc+ad)*2l6 + b*d 

(a»2l6 +b) is one 32-bit number and Cc*2l6 + d) is the oliier. 

Note by expanding it we have reduced one 32-bit by 32-bit 
multiply to four 1 6 -hi thy 1 6-bit multiplies, which we know 
how to do. 

If we want to perform an overflow check, we get the full 
32-bit answer by doing four 1(i-taii multiplies, offsetting their 
answers by the correct numlxrnf hits, anda(kling The result 
is a 64-bit 0-6., quad-precision) number. If thenumbeis were 
both positive and the top 32 bits of the result are not zero, 
the result w-as too big to fit into 32 bits. 

If an overllow check is not needed, we proceed by noting 
cl^t a*c must equal zero (otherwise the result would not fit 
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Rgure Two. 32-bit fixednxiint arithmetic. 




Deflnins the flxed-Dolnt stmctiire 






VARTABTiF FDPTi 




\ holds number of irtplied decimal places 


VARTARTiR WSSCHa 




\ holds the scaling factor we are using 


w c m jtiin^ no \ 11 / i^u^jt 1^ jf 




\ return number of innplied decimal places 


: FSCALE ( — n ) fsol 8 ; 




\ return the scaling factor we are using 


: FIXED C n — > 






m^x 4 rtvin fdpl ! 




\ clip to between and 4 decimal places 


1 frfnl S ■'do 10 * looo 


fscale ! 






\ s^ore wpxaces, caxc« « s^ore scaxxng raci^o^ 


r 




\ default to three decimal places 


OniYMittlno till fnJw^ tug 






• IP \ ( fn — aHy Ian Ti 




\ prepare fixed— point # ready to output 


tuck 




\ keep copy of top byte so we know sign 






\ convert to positive number 


<# bl hold 




\ start conversion with a leading blank 


fdpl @ ?do # loop 




\ convert places after decimal point 






\ put a decimal point in place 


#s 




\ convert integer part 






\ put sign in place, tidy stack 


t 

: < fn ~ ) (f.) type ; 




\ print fixed-point number 


* F R f fn D — \ 




\ print right justified in a field of p places 




bl 


emit loop type 






\ convert, pad with blanks as needed, then type 


Tflmvittfliir mi-tiilwrg 

If ■^"■'-'"'Jfc 1 Hill l|tf%iM 9 






• DIO* ( dl — 10*dl) 




\ multiply a 32 -bit number by 10 


d2* 2duD d2* d2* d+ 




\ 8*d+2*d=10*d 


: FIX ( dn — fn ) 






del [J 0< 




\ single or double number? 


if s>d c^l ! then 




\ if single, convert to double 


dpi e fplaces <> 




\ # decimal places entered not fplaces? 


if c^l e fplaces < 




\ too few places specified? 


if fplaces dpi 8 ?do dlO 


* loop \ yes, too few so scale the niMfcer up 


else abort" Too many decimal places" \ no, too many - we can't handle this 


then 






then 






f 

Mabi^ two fized-poliit nuinbets, i»«duclt^ 


a fixed-point result 


: FIX* ( fl f2 — fX*f2 > 




rot 2dup xor >r 




\ sign of answer to return stack 


-rot dabs 2swap dabs 




\ make both numbers positive 


dup>r rot dup>r >r over >r 




\ put a c C b on return stack 


>r swap dup>r 




\ put a d onto return stack 


um* 




\ b*d 


2r> um* d+ 2r> um* d+ 




\ offset 16 bits, add on a*d+b*c 


2r> * + 




\ add on low byte of a*c 


fscale mu/mod 




\ divide ms32 bits, ans to R. 


0<> abort" Fixed * Overflow!" >r 


\ unless overflow quotient to R. . . . 


fscale mu/mod rot drop 




\ divide remainder and last 16 bits 


r> + r> ?dnegate 




\ assemble final answer, negate if required 


r 

Divide tw» fixed-point numbers, produdU^ a fixed-point result. 


: FIX/ ( fl f2 — fquot=fl/f2 


) 


\ Divide two fixed-point numbers 


2 pick over xor >r 




\ work out sign of answer and save 


dabs 2 swap dabs 2 swap 




\ make all numbers positive 


2dup >r >r 




\ keep copy of divisor 


d/mod fscale d* 




\ scale integer part of answer 


23wap fscale d* 




\ and then scale remainder 


r> r> d/ 




\ divide remainder by divisor 


d+ 




\ add fract part of ans 


r> ?dnegate 




\ put on final sign 
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into 32 bits), so tfrere is no point in performing this multiply. 
Similarly Oic+ad) must give an aiiswcr lhat is no bigger llian 
16 bits. So only b*d need be done to 32-bii precision, and 
(Jx:+ad) to 16-bit precision, and a*c need not be done at alL 
Naturally, this makes this veision faster than the one with 
overflow check. 

TTk traditional method to perform a 32-bit by 32-bit 
division is by a siihtr3cr-and-shift algorithm O.hc way wc were 
taught at school, except bit by bit rather than digit by digiOi 
which gives both the result and the remainder. This method 
can be used to provide division of any picdsion, not just 32 
bits. Hie method shown here uses an algorithm designed 
(only) for 3 1 -bit unsigned numbers (that is, 32-bit signed 
numbers without the sign). The advantage of this new 
algorithm is speed: it is more than twice as fast. Ttie algorithm 
is <iescril>ed in Knuth's book', but I came across it first in an 
article by Nathaniel Grossman in Forth IMmenstonfi. I have 
recoded it completely for faster execution. 

The algorithm works as follows. Let the dividend be 
Uo*2l6+ Ui and the divisor be Vo*2l6+Vi. Also let D be a 
large integer not bigger than 65536A^o. For simplicity of 
calculation, let D= 65536/CVo-l ) as ai^esGed by Knuth 
Then our division sum isr 



V0*2l-6+Vi 
and 

tJ0*2l6+ Ui 



Wo*2l6+ Wi 



where D * {Vo*2l6+vi) = wo*2l6+ wi 



Vo*2l6+vi Wo* 65536 



D UO 
* (U0*2l6+ Ul) 



The error term is so small it may be ignored, unless we 
wished to calculate the remainder. In practice, it is simpler to 
find lilt: a;iiiLU[ider (if wc need it) by taking away tlie product 
of llie answer and tiie divisor from the dividend. Also, we 
must check that Vq is not zero; if it is, wc must not use the 
relationship above, as wc will be trying to divide by zero. 
However, if Vq is zero, our problem is reduced to dividing 
a 32-bit nun±»er by a l6-bit number, a very much simpler 
task 

'live code in i'igure One iniplcmenis llic various versions 
of D* and D/ in 2 stiai^itforward way. 

32-bit Fixed-point Arithmetic 

The software to be described will allow you to choose the 
number of decimal places you want and, therefore, the 
scaling faaor that will be used. 'Ihe more decimal places you 
want, the smaller the largest poskive and negative numbers 
you can handle, but ttie smaller the smallest number 
inaement ym can represent 

To perfomi fixed-point math, only the number input, 
number output, multiplication, and diirision words need to 
be changed. '11 le addition, subtraction, and absolute value 
double-precision words still work. First you must decide how 
many decimal places you want to the right of the decimal 



point; for simplicity, let us call this N, Any number that does 
not have this number of decimal digits must be muliiplicdby 
ttic appropriate power often to get its impUcd dedn^ point 
to line up with all the others. After a normal double-precision 
multiply, the 64-btt aaswer will Ix; too laigeby Ifl*^', .so to get 
the correct answer simply requires a division by 10*^. 
Dividing by 10 is not as easy as divicfirtg by two, unfortu- 
nately, so this extra step adds a bit to the exeajtion time. 

After a division, the re.su It will be too small by K)^. But 
just doing the division and then multiplying by lO"^ would 
lose precision. We must do the division, scale the remainder 
up by 10^, do an integer division of this remainder, and add 
this result to the previous result to get a final result to the 
fullest precision possible. 

The word to print a fixed-point number, F . (or F . R to 
print the number right justified in a s[x>cified field), really 
prints two numbers; a number representing the integer part 
and a second representing the fractional part. These are 
printed with a decimal point in between (and leading blanks, 
a.s rec]uired, in the c:a.se of F , R), 

In this simple package, the user has to specify with the 
word FIX that the number just entered is to be a fixed 
decimal point number. From the keyboard, this would be 

done by entering 12 3 . 4 FIX, 
for example. To put the same 
fixed-point number in a colon 
definition, you would specify 
itas [ 123.4FIX] DLITERAL. 

The code in Figure Two 
implements these words in a 
straightforward v/ay. By de- 
plus an error terra fault, the number of implied 
decimal places is set to three; 
niodiiy the line 3 FIXED to 
alter the number of io^lied 
decimal places to any integer between zero and four. 

3^l>lt Floatii^polnt Arithmedc 

If you need a greater dynamic range of numbers than ran 
be readily accommodated in cither 32-bit integer or 32-bit 
fixed-point arithmetic, but can tolerate lesser basic resolution 
than 32-bit integers provide, you might consider 32-bit 
floatir^ point Here, some of the 32 hits arc used to hold an 
exponent, and the remainder are for the basic number. The 
code shown below allocates I6 bits each to the basic signed 
number and the signed exponent. The dynamic range is 
probably unreasonably high, and one might be tempted to 
increa.se the numljcr of bits allocated to the basic number and 
decrease the nuniter allocated to the exponent. The pro- 
gramming ease of staying with 1 6-bit quantities for each, and 
the speed penalty itiai would tx- incurred by dealing with 
smaller pails of the number, strongly dictate otherwise. The 
accuracy is a little better than four significant digits, about the 
accurao' of tlie traditional logarithm tables tliat sdlOOl 
children suffered before the advent of calculators. The code 
shown below, which implements sudi a 32-bit floating-point 
iiuii)lx;r package, was originally wriiicn by iViartin Tracy and 
has only been slightly modified for greater speed by this 
author, Martin called it "Zen" rmth, Ihere is also an add-on 



Wi 



wo 



Forth Dimensions 



31 



January 1993 February 



Figure Three. 32-bit floating-point math. 



\ Trim a double-number mantissa and an exponent of ^ to a floating number. 
: IRffl { dn n - f ) 

>r 

tuck dabs 

begin over 0< over 0<> or 



\ exponent to return stack 

\ save copy of sign, make doiible positive 

\ MSB low word sot ot: top 16 bits no zeco? 

\ if so, toe tig to tit into 16 bits when signed 



while 

10 um/mod >r 10 um/mod nip r> 
repeat rot ?dnegate drop r> 

\ 32 bit floating-point addition and siditeaction 

: F+ 

rot 2dup - dup 0< 
if 

negate rot >r nip >r swap r> 
else 

swap >r nip 
then 

>r 3>d r> dup 
?do >r dlO* r> 1- 

over abs 6553 > 

if leave then 

loop 

r> over + >r 
if rot drop 
e] se rot s>d d+ 
then r> trim 



\ and increase exponent 
\ apply sign and final exponent 



\ work, out difference in exponents 
\ top number has the larger exponent 
\ keep larger and diff^ swap mantissas 
\ top has a smaller or equal eiqwnent 
\ keep larger (on return stack) and diff 

\ convert larger to double, top 16 bits >r 
\ multiply mantissa by 10, decrement exponent 
\ would a *10 cause overflovf of these 16 bits? 
\ prematurely terminate loop if so 

\ calculate final exponent 

\ top 16 bits were *ve lose copy of bottom 16 

\ top 16 bits -ve, convert to double and add on 

\ get final exponent and trim 



FMKGA^EE 
P- 



>r negate r> 
f negate f + ; 



32-bit floating-point multiplication 

P* ( fl f2 — f3 ) 

rot + >r 

2dup xor >r 

abs swap abs um* 

r> ?dnegate r> trim 

32-blt floating-point division 
r/ 

over 0= abort" d/0 error!" 
rot swap - >r 
2dup xor -rot 

abs dup 6553 min rot abs 
begin 2dup dlO* nip 3 pick < 
while dlO* r> 1- >r 
repeat 2swap drop um/mod 
nip rot ?dnegate r> trim 



\ add negative of the top value 



\ calc e:qp of answer, save on return stack 
\ save xor of mantissas too (sign of answer) 
\ make mantissas positive and multiply 
\ apply sign and then get exponent and trim 



\ check for divide by zero 

\ get exponent of answer ^ put on return stack 
\ get sign of answer, tuck down on stack 
\ make number -l-ve, ensure divisor < 6553 
\ would divisor * 10 be less than dividend? 
\ yes, divisor * 10, decrement answer exponent 
\ now do the division 

\ lose remainder, apply sign get exp and trim 



\ 32-blt floating-point Input and output 

\ Numbers to be floated must include a decimal point when entered. 
\ DPL contains the number of digits entered after the decimal point. 
: FLOAT ( n — f) \ float the last entered nmriber. 

dpi negate trim 



F. ( f — ) 
>r dup abs 
<# r@ max ?do ascii hold loop 
r@ 0< 

if r@ negate max ?do # loop ascii 
then r> drop #s rot sign 
#> type space 



\ print a floating number in fixed format . 



hold 
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lo Zcii whicli uxicnds it lo calcuUte Uitn^cuidcDUl luncUtinb 
(with an accuracy of unly about three figures) wriik;n by 
Nathaniel Grossman, lliis is not reproduced here; it can be 
found in Dr. Dobfs Toolbook (^y^ort& Vt^uraeTwo, in the file 
of tfx;.se words on GEnic's Forth RoundTable, or directly from 
this autiior, Tlie code in Figure TTirce implemenis Zen math. 

Forth or Assembty Code? 

All the words above are written in Forth and ate thus able 

to l>e transported from machine to machine, '['here are two 
reasons why words written in assembly code will mn faster. 
Clhey will, of oouise, not be able to be pcMied to other 
processors nearly as readily.) One reason is that, although 
there is only a slight speed overhead involved in using the 
Foith inner interpreter, &us can aocutnulate to a simU but 
significant sum over enough (operations, ilie second reason 
is iKJt as obvious, but accounus for more of the speed penalty 
otxserved. I'orth has no carry; if you add two l6-bit quantities 
and tlie sum is too largie to fit into l6 bits, the uppermost 
C17ili) bit of the answer is lost In arithmetic involving more 
than 16 bits, a carr^' is needed in order to do the calcula- 
tions — you have to synthesize one, which takes lime. By 
writing in machine code, you can make direct use of the carry 
flag of the processor. Tlie -IS-bii fioaUng-point package 
described below is written mainly in assembly language, and 
is significantly faster than any of the other padcages given. 
Not all of this s[X.-cd increase comes from using 3.s.senib!cr~ 
the algorithm.s used are highly optimi/cd. If you want the 
fastest speed arithmetic po.ssible for a given processor, you 
must use the most efficient algorithms and assembly lan- 
guage. The result will be larger than the simple algorithms 
descril^d abcj\'e, and totally non-ponat)le. Of course, a 
hardware math processor will always perform faster than any 
software solution on the main processor. 

4»-bit Hoatliig-point Arithmetic, SFXOAT 
Tliis is a lull software assembly language floating-point 

package for F-PC wriuen (and copyrighted) by RcAsert L 
Smitli. It is in the file SMITH.ZIP 
which comes as pan of the F-PC 
package. The size of a floating-point 
numlx'r is 18 biLs (.six bytes), 'ihe 
largest dilTcrence to get used to when 
you load this software is the faa tliat 
you now have another (third) stack. 
Holding the floatmg-point numbers 
on tlie regular data stadt would 
make ^ck operations an absolute 
nightmare, so they arc pivrn a ,<;tack 
of their own. Ry default, the floating- 
pointstack is 100 floating-point num- 
bers deep, but you can change this 
just by altering one constant before 
you I oad the software. Words expect 
their floating-point parameters on 
the floating-point Stack and leave 
[heir rioa!tng-poin! re^ulw there. Any 
flags tliat result from operations on 
floatii^-point nutiibers are left on 



Uie normal data suck, and any integers needed arc t>l3tained 
from tlic normal data suck. Wortb are provided to manipu- 
late the Ibating-point stack; ihe name used is almost always 
Ihc name of the same operation of the data stack, but with 
a leading F, Ihus, we have FDUP and FROT, for example. 

SFiiOAT not only provides a full set of arithmetic and 
transcendental functions, it may also alter the outer inter- 
preter of P-PC. Ttie nt'w outer interpreter allows you to enter 
floating-point numlxirs in line. Any nunitx:r with an embed- 
ded decimal point or with an exponent will be converted to 
a floating-point numlx2r. Any number without a decimal 
point will be treated as a .single-precision integer and placed 
on the data .stack .■\ny number with a decimal point at tlie end 
will be treated as a double- precision integer and put on the 
data stack. You can control whether you wish to use the 
normal or the new outer interpreter at any time, by using the 
words FLOATING and NOFLOATING, A list of words pro- 
vided by SFLOAT can be found by inspecting the help file 
that comra with SFLOAT. 

Relative Performance 

Shown in Table Two arc the timings for addition, 
subtraction, multiplication, and di^ion for each of the I6- 
and 32-bit math capabilities shown above. All times are 
relative, with a 1 6-bit signed add used as reference, and have 
been rounded to two significant figures. The times were 
calculated by timing a loop that [x;r formed ihc required 
OfX" ration 65, 536 times, and deducting tiie lime for an empty 
loop. Ihe actual times you get will dcfx,'nd on tlie processor 
speed; on my trusty old 25 IVIH2 '386SX, a l6-bit s^ned add 
took about six microseconds. Also shown are timing for 
SFLOAT. Just ](.)nkingat (lie figures can Ix; misleading, as you 
may be unintentionally equating apples with oranges, so a 
number of explanatory comments are given below. 

The multiply and divide times in row one arc small, as the 
PC processor has hardware l6-bit integer multiply and 
divide. The far larger times for multiplication and division in 
row two show the penalty to be paid when you have to 



Table Two. 




Description 




Add 


Subtract 


Multiply Divide 


16-bit signed integer, 
written in Fottli. portable 


1 


1 


1.1 1.3 


32-bit unsigned integer, 
written in Rxth, porable 


2.4 


3.8 


8 13 


32-bit signed integer, 
Mitten in Forlti, portable 


2.4 


3.8 


13.1 19 


32-bit fixed point, 
3 decimal places, 
Mitten in Forth, port^e 


2.4 


3.8 


36 93 


:^-bitZen floating pdnt 
written in Forth, portable 


19 


22 


16 €9 


48-bit lloating point, SFLOAT. 
written in assembler, rran-portabie 


2.9 


3.1 


2.1 2.9 
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TaUe Three. 



synthesize operations on long numbers out of repeated use 

of shon-lengiJj operaiors. Doubling the word size increased 
the exeaaiioii time by a mucli liighcr factor. Row three shows 
that just adding the extra <x3de to keep tiadc of the implied 
dedma! poinifor fixed-point 
multiplication and division 
has added about another 
50% to the time; except for 
addition and subtraction, 
fixed-point aritiimt^lic costs 
significant liiiic over integer 
arithmetic 

For curiosity, the mulli- 
pliotion word in row ihtcc 
was rewritten as in-line c(xie. 
This saves the time used by 
the inner interprctc r (NEXT) 
and allows inlcrmcdiaie re- 



a separate exponent simpHfi^ multiplicaticin and division, 

but complicates additicai and subtraction. Since the actual 
number in Zen is a l6-bit quantily, multiplication is done by 
multiplying the l6-bit nun^rs and adding their exponents. 



Memory requitewiente lii byte» 



Math Package 


tieader 
^ace 


code 
space 


list 
space 


total 


32-bit integer, 4 functions 


86 


42 


288 


416 


32-btt fixed pCH'nl, 4 functicsis 


216 


102 


768 


896 


32-bit floating point, 4 functions 


106 


50 


1562 


1718 


SFLOAT, 4 functiofis only 


671 


2976 


850 


4488 


SFLOAT full package 


2380 


7253 


5756 


X5389 



suite to t>e kept in registers 
instead of being ptuhed at the end of one word and 

immediately reloaded again at the start of the next. This new 
version was fa.stcr, but only by alx)Utsix percent, 'i his modest 
speed increase must be weighed against the benefits of 
writing in Forth so that the word is portable to other Forth 
systems, no matter what die processor. Also, Forth code is 
much easier to understand and, therefore, to write and debug, 
1 he i2-bit floating-point Zen package results may seem 
strange. The due to understandir^ them lies in the way that 



FORTH and Classic 
Computer Support 

For that second view on FORTH appli- 
cations, check out The Computer Journal, if you 
run a classic computer (pre-pc-clone) and are 
interested in finding support, then look no 
further ihati TCJ. We have hardware and soft- 
ware projects, plus support for Kaypros, SI 00, 
CP/M, 6809's, and eml>edded controllers. 

Eight bit systems have been our mainstay 
for TEN years and FORTH is spoken here We 
provide printed listings and projects that can run 
on any system. We also feature Kaypro items 
from Micro Conii/cop/a. All this for jtist $24 a 
year! Get a FREE sample issue by calling: 

(800> 424-8825 



TCJ 



The Computer Journal 

PO Box 535 
Lincoln, CA 95648 



For division, the multiplication is replaced by dtvisic»i and the 

addition by subtraction. As a result, these words are faster 
than iheir fixed-poim equivalents, wiiich require a 3i-bit 
multiplication and division of ttie result by a scaling factor. 
However, addition and subtraction of fixed-point numbers is 
trivial, while to do the same with floating-point numbers 
requires tiiat tlx.- numbers tx; sliifted (scaled) so that their 
exponents are equal before the required operation can be done. 

The times shown in row six seem little short of amazing, 
considering thai this i,s for ^8-bit floating point, and show 
what can be done if you abandon itie reciairement for 
portability and write in tiighly optimized machine a >de. Note 
again the (relative) inefficiency of addition and subtraction 
compared to multiplication and division. The routines used 
are anything but trivial tounderstand (see the file SFI/^AT.IXT, 
forexample, for an explanation of the divide algorithm used). 
An assembly language routine using the same algorithm for 
fixed ;x }int would be ^ster than even these floatirig-point 
times. 

Speed is only one criterion, another is the memory these 

routines take up Table Three shows the memory needed in 
V-PC by each of the malli packs. Tfie smaller space quoted 
for SFLOAT is with only the basic four matliematical func- 
tions loaded; the larger figure is for the full package, which 
indudes many more functions. If you have a math co- 
processor, there is an equivalent package to S float called 
FFLOAT, which also comes with f-PC and which is even 
fasterand smaller. FFLOAT is, of course, totally non-portabte. 

Caboose your math routines after considering your need 
for speed, precision, size, and portability. No one of them is 
always the best 

1. Donald li.Knuih, The Art of Cx)mputef i'rogramming, 
Volume Tux}, Ackimn- WcuLyl'ubliihmg Cotnpany 1973- 

2. .\alhaniel Grossman, "Long Division and Short Vrac- 
liOTJi "Forth Dimensions V13, S^tember/Ocu^)erlSS4. 
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tion, to davicos for (ho moasuremenlol capacitance under adverse conditions 
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\ Extra words needed to onctlement 32 -bit integer, fixed, and floating-point arithmetic. 


anew 32matti 




\ 


********************************************************* 


\ 


* 


32-bit Integer Arithmetic * 


\ 


**************************************************** jt**** 


\ 




********************************* 


\ 




* 32 -bit Integer Multiplication * 


\ 




********************************* 


\ 


Unsigned double * unsigned double = unsigned double (No overflow check) 




OD* 


\ unsigned 32 -bit answer, no overflow check 




rot >r over >r >r over >r \ put c b a d on return stack 




um* 


\ b*d = part of 32-bit answer 




2i:> * 2r> * + + 


\ a*d+b*c= addition to top 16 bits 


\ 


Signed double * signed double - signed double (No overflow check) 




D* 


\ signed, no overflow check 




dup>r dabs 2sHap dup>r dabs \ #s +ve, keep info to work out final sign 




ud* 


\ get 32-bit answer 




2r> Kor ?dnegate 


\ work out and apply final sign 


t 

\ 


Unsigned double * unsigned douijle - unsigned double (with overflow check) 




UD*C 


\ unsigned, with overflow check 




dup>r rot dup>r >r 


over >r \ put a c c b on return stack 




>r swap dup>r 


\ put a d onto return stack 




um* 


\ b*d 




2r> um* d+ 2r> um* d+ \ offset 16 bits, add on a*d+b*c 




2r> um* d+ 


\ off another 16 bits, add on a*c 




or 0<> abort" D* overflow" \ check for overflow 


r 

\ 




*************************** 


\ 




* 32-bit Integer Division * 


\ 




*************************** 


comment : 




\ 


Traditional algorithm, slow but gives remainder directly 




Q2* { qn= abed 


— qn2> \ Shift quad qn left one bit. 




2 swap dup >r 


\ save copy of c to handle carry later 




d2* 2 swap d2* 


\ do the two shifts 




r> 0< negate s>d d+ S perform the carry if needed 


t 


D/ ( dnl dn2 ~ dquot ) d/mod 2swap 2drop ; 




DMOD ( dnl dn2 — drem ) d/mod 2drop ; 


coTTimerit: ; 




\ 


Fast algorithm, remainder requires an additional multiplication and sutraction. 


\ 


Unsigned double * unsigned single ■» unsigned triple 




T* ( ud un — ut 


) 




dup \ ud un un 






rot \ udl un un udh 




um* \ udl un high 


-ans . 




2>r \ udl un 






um* 2r> d+ \ low 


-atis then add on high-answer after offsetting it 16 bits 


\ 


Unsigned triple / 


unsigned single = unsigned double 




T/ { ut un — ud 


) 




>r rg ujn/mod swap 


\ divisor to x, divide top two words, rem to top 




rot r@ um/mod swap \ 




rot r> um/mod swap drop 


1 


2 swap swap d+ 
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\ Calculate ud * unl / un2 . 
: U*/ ( ad unl un2 — ud2 ) 
>r t* r> t/ ; 



Triple intermediate product. 



\ Unsigned 32 -bit by 32-bit divide. No remainder. 



UD/ ( udl ud2 — ud3 ) 
dup 0=- 
if swap t/ 
else 

dup 65536. rot 1+ um/rood >r 
deop r@ t* drop 2>r 
dup 2r@ u*/ d- 
2r> r> -rot nip u*/ 
nip 
then 



\ top 16 bits of divisor = 0? 

\ make it a triple, do the division 

\ work out scaling factor, copy to return stack 

\ scale denominator, move to return stack 

\ calculate (U-U0*W1/W0) 

\ multiply by (D/WO) 

\ /2^1$ (use top 16 bits only), make ans double 



\ Divides two double numbers. All 
Zvariable t&apl 

; D/MOD < dnl dn2 — drem dquot ) 

2 pick over xor >r 
dabs 2swap dabs 2swap 
4dup ud/ 2dup 2>r 
ud* d- 

2r> r> ?dnegate 

f 

: D/ ( dnl dn2 — dquot ) 

2 pick over xot >r 
dabs 2 swap dabs 2 swap 
ud/ 

r> ?dnegate 



nunbers are signed <teubles . 

\ to siic$>lify stack inanagecnent 

\ work out sign of answer 

\ convert numbers to positive 

\ do the division, save copy ans 

\ calculate remainder 

\ retrieve answer, apply final sign 



\ work out sign of answer 

\ convert numbers to positive 

\ do the division 

\ retrieve answer, apply final sign 



********************************************************** 
* 32-bit FiJced-Point Arithmetic * 



variable fdpl 

FPLACES ( -- n ) fdpl @ ; ■ 
FSCALE ( ~ n ) fscl 6 ; 
FIXED ( n — ) 

max 4 min fdpl ! 

1 f places ?do 10 * loop fscl ! 



***************************************** 

* Defining the fixed-point structure * 
***************************************** 

variable fscl 

\ number of iirplied decimal places 
\ scaling factor we are using 



3 FIXED 



\ clip to between and 4 decimal places 
\ store scaling factor 

\ default to three decimal places 



***************************************** 

* Outputting numbers * 

********************* ******** + ** + ******** 



(F.) ( fn — adr len ) 

tuck 
dabs 

<# bl hold 

fplaces ?do # loop 

ascii . hold 

#s 

rot sign #> 



FIX. { fn 



) (f.) type 



S prepare fixed-point # ready to output 

\ keep copy of top byte so we know sign 

\ convert to positive number 

\ Start conversion with a leading blank 

\ convert places after decimal point 

\ put a decimal point in place 

\ convert integer part 

\ put sign in place, tidy stack 

\ print fixed-point number 
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: FiJf.R ( fn p — ) \ right justify in a field of p places 

>r (f.) \ convert number 

r> over - ?do bl emit loop type \ pad with blanks as needed 

r 

\ * Inputting numbers * 

\^ ***************************************** 

: DIO* ( dl — 10*dl) \ multiply a 32-bit number by 10 

d2* 2dup d2* d2* d+ \ 8*d+2*d=10*d 

\ Convert number to fixed-point number - no check made for nmibers too large 
\ Example 1234.5 FIX. To coit5)ile a fixed-point number in a : definition, use 

\ [ 1234.5 FIX ] DLITERAL 
: FIX ( dn — fn ) 

e 0<\ single or double number? 
if s>d <^1 ! then \ if single convert to double 

dpi @ f places <> \ # decimal places entered not f places? 

if dpi @ fplaces < \ too few places specified? 

if fplaces dpi @ ?do dlO* loop \ yes, too few so scale the nurrber up 

else abort" Too mnay decimal places" \ no, too many - we can't handle this 
then 
then 

^ ***************************************** 

S * 32-bit Fixed-Point Multiply * 

\^ ***** ******************** **************** 

\ Multiply two fixed-point numbers, producing a fixed-point result. 
: FIX* ( fl f2 — fl*f2 ) 

rot 2dup xor >r \ sign of answer to return stack 

-rot dabs 2 swap dabs \ make both numbers positive 

dup>r rot dup>r >r over >r \ put a c c b on return stack 

>r swap dup>r \ put a d onto return stack 
um* \ b*d 

2i:> um* d+ 2r> um* d+ \ offset 16 bits, add on a*d+b*c 

2r> * + \ add on low byte of a*c 

\ f scale mu/mod >r >r \ divide ms32 bits, ans to R. Remainder on stack 

\ fscale mu/mod rot drop \ and that remainder and last 16 bits 

\ r> r> d+ r> + \ assentole final answer 

\ r> ?dnegate \ yes, answer valid, negate if required 

\ else abort" F* Overflow" report if an overflow 

\ then 

r 

\ ***************************** ************ 

\ * 32-bit Fixed-Point Divide * 

\ ***************************************** 

: FIX/ ( fl f2 — fquot=fl/f2 ) \ Divide two nuinbers 

2 pick over xor >r \ work out sign of answer and save 

dabs 2 swap dabs 2swap \ make all numbers positive 

2dup >r >r \ keep copy of divisor 

d/mod fscale d* \ scale integer part of answer 

23wap fscale d* \ and then scale remainder 

r> r> d/ \ divide remainder by divisor 

d+ \ add fract part of ans 

r> ?dnegate \ put on final sign 
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^ ********************************************************* 

\ * 32-bit Floating-Point Arithnatic * 

\ * Based on Zen Math by Martin Tracy * 

^ **i***A******** + *+ * + * + **++** + + -**+****************+***A-+A* 

\ Trim a double -number mantissa and. an exponent of ten to a floating nmnbei:. 
: TRIM ( dn n = f) 

>r \ exponent to return stack 

tuck dabs \ save copy of high word for sign, make double positive 

begin over 0< over 0<> or \ MSB low word set or top 16 bits no zero? 

\ if sor too big to fit into 16 bits when signed 

while 

10 um/mod >r 10 um/mod nip r> \ divide 32-bit mantissa by 10 

r> 1+ >r \ and increase exponent 

repeat rot ?dnegate drop r> \ apply sign and final exponent 

f 

\ *******************************************+******** 

\ * 32 -bit Floating-Point Addition and Subtraction * 

y **************************************************** 

: F+ . 

rot 2dup - dup 0< \ work out difference in ejqponents 

if \ top number has the larger exponent 

negate rot >r nip >r swap r> \ keep larger (on return stack) and dif f , swap mantissas 

else \ Lop has a grriallor or equal exponent 

swap >r nip \ keep larger (on return stack) and diff 
then 

>r s>d r> dup \ convert mantissa to be shift to double 

?do >r dlO* r> 1- V inultiply mantissa by 10, decrement exponent 

over abs 6553 > \ would a *10 cause overflow of these 16 bits? 

if leave then \ prematurely terminate loop if so 

loop 

r> over + >r \ calculate final exponent 

if rot drop \ 
else rot s>d d+ 

then r> trim \ get final exponent and trim 
: FNEGATE >r negate r> ; 

: F- f negate f+ \ add negative of the top value 

r 

\ **************************************** 

\ * 32 -bit Floating-Point Multiplication * 

y **************************************** 

: F* ( fl f2 — f3 ) 

rot + >r \ calc exp of answer, save on return stack 

2dup xor >r \ save xor of mantissas, too (sign of answer) 

abs swap abs lira* \ make mantissas positive and multiply 

r> ?dnegate r> trim \ apply sign and then get exponent and trim 

y *********************************** 

\ * 32-bit Floating-Point Division * 

\ *********************************** 

: F/ 

over 0= abort" d/0 error!" \ check for divide by zero 

rot swap - >r \ get exponent of answer, put on return stack 

2dup xor -rot \ get sign of answer, tuck down on stack 

abs dup 6553 min rot abs \ 
begin 2dup dlO* nip 3 pick < \ 

while dlO* r> 1- >r \ 

repeat 2 swap drop um/mod \ now do the division 

nip rot ?dnegate r> trim \ lose remainder, apply sign get exp and trim 

CfMle amctu4es in next issue with 32-bit Jhating-point I/O and tremscmdental fimctiom. 
It may be chtmtoaded in its enlirety from the Forth software libraty on GBnia. 
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A Forum for Exploring Forth Issues and Promoting Forth 



Mike Bda 

San Jose, California 

From ttie last volume of Forib Dimensions, I tiave col- 
lected comments that reinforce one another and that S{.x;ak 
to Forth and its fLiture. The comments brought to you here 
have previously appeared in F/?s "letters to the Editor" or 
'Best of GEnie" columns. 

Not SO long ago, I viewed the Forth community as a very 
divided community that was becoming even more divided. 
However, tlic; views, nffered here reveal commonly hfld : 
values and beliefs. Perhaps these values can also shape our 
vision about how to promote Forth. 

John Wavrik is a professor at ihe I'nivcrsity of California 
CSan IDtegO, CaUfomia) who ha.s spoken of ihe strengths of 
Forth: "Conventional languages allow data structures only to 
be created by a limited set of mechanisms built into the 
language — -arid then impose further limitatioi^s on the status 
ofthcsesmictures Chow they can be passed to functions, how t 
opeiatDis may act on them, etc.).° 

He described tlie Forth advantage as "the ability to 
accompli.sh clifficull things without fighling ihc language." 
He credi ts Forth with being the only la nguage liial always lets 
him do whatever he determines must be done, and speaks of 
Tghiing I he rigid features of other languages (Rest of Gf'^nie, 

Our concerns are focusing on 
manmgemeni issues and on the 
development environment... 

F/?XIII/5). A theme that others will repeat is the relationship 
between power and knowledge: "Power in Forili comes, in 
great measure, from the user's ability to understand how the 
system wcwks — and being able to harness that understand- 
ing." 

Steve Noll gave his lestimonial about horth's empower- 
ment of the programmer. Crediting Forth for his speed of 
dcvelopnieni, he biicfly described five sophisticated ma- 
cilune- control applications ilial he completed in four years 
(LcUcis, /'DXin/5). Although he had come to Forth 'kicking 
and screaming," he said he was won over. Given his experi- 
ence, hii. suggestion for promoting I 'oiih is a natural one: He 
suggested that a way to atli-acl otlicrs to Fortli is for FIG to 
distribute, market, and provide snp[v>ri for a low-txjst Forth. 

A winning submissiun in the programming contest held 
by FIG U. K. a couple of years back was a tiny editor from Mike 



Lake, Tic shared the .stor^' of the success of M.A.S.S., a 
company tliai converted to Forth around 1985 after BASIC, 
Pascal, and assembler had all been tried. He mentions ihat 
the company has distributed over 12,000 I'orlh applications 
woridwide (presumably, in a six -year period). Besides 
sharing his code with us, lake described his company's 
deepening commitment to Forth, culminating in thdr devel- 
opment of an in -house l-'onh that gave them 'absolute 
conu-ol" (Letters, FD Xni/3). 

Dean Sanderson is a key software engineer with Forth Inc 
fie had chi.s to say atxurt Forth's future: "For f'nnh to surv'ive 
as a respeaed language, it must prove its adaptability and 
change enough to su^^rt the concerns of management 
These indude: Integration, .Maintenance, Documentation, 
Dediningcost,Q(ualit>'i /Mssurance], Configuration, andSched- 
t uli ng. Though we ' ve sta rtcd late , we can .su rv i ve by ca pi ta 1 i /.i ng 
on what others have learned" (Best of GEnie, FDXm/S). 

John Edgecombe described Forth as a language that 
enterprises r(i.sori to wheri conventional methods fail. He 
sympathizes with comfanies reluctant to use Forth because 
of the difHculty of getting good Forth help when they need 
it. 1 Ic de,scril>;d why he uses Fodti: ". .1 want .something I can 
understand, that 1 will maintain, and which is economical of 
my limited resources" CLetters, FD'Xm/l'). 

Tight, clever code is no longer as commercially valued as 
it once was. While asserting the prominence of the develop- 
ment environment, Laughing Water discounted the impor- 
tance of Forth's compactness in today's marketplace: "IForth'sl 
virtues as a general programming language — compactness, 
speed, interactivity, flexibility (anarchy) — have become old 
fashioned indeed, and we are frequently superseded by 
mainstream languages in more fully evolved development 
environnrienis..," (Letters, FZ) X1U/1). 

By leportiiig tliat Macintosh Pascal has earned greater 
mindshate than Forth because of the environnient it offers, 
Conrad Weyns added his voice lo tlirwe proclatmii^ the 
prominence of the programming environment 'this viewpoint 
asserts that a lartguage sudi as Boriand Pascal is popular due 
to the tools into whicli it is embedded rather than dire to Pascal. 

Wcyns abo joined Chose equating power and understand- 
ing: "A lot of Fortli's power lies precisely in its accessibnlily: 
the ability to extend the compiler and interpreter, to add to 
it, to use or abuse it..." (Letters, FDXm/3). 

Mitch Bradley of Sun Microsystems said, "C is a viable. 
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usable andubiquftous development environment, and Forth 

has to be competitive Lo succeed." He urj^eJ u.s lu pay heed 
to the issue of the environmeru that accompaiiies our 
development systems and our applications, too: The exist- 
ence of tlie operating system caninji. be igtiored." Bradley 
claims thai successful 1-oitlia have addressed the environ- 
ment issue, "but without the guidance of a standard there has 
been great diveigcooe' QJest of GEnic, FDiOU/i). 

Divergence considered a flaw? Some would say that 
flexibility is ihe point or using Forth, because Fortli offers the 
fieedom to solve problems in novel ways. However, for 
[>iagmatic goals such as code reuse and code portability, 
divergence can indeed Ix? our enemy. We have tolx; shrewd 
enough to know when a departure from standard teclmique 
will ultimaliely turn out to be a hindrance to our ojlledive 
Forth fiiture instead of a oomjx^titivc advantage that will endure. 

Brad Rodriguez shared his struggle to understand 
meiacompiling Cctlers, FD XIIf/3), 'fhe understanding he 
sought finally arrived after he attended an advanced poly- 
FORTH dass. After presenting his struggles at the local HG 
diapter meeting, he reports that others were able to unravel 
the secrets of the technique coo. 

Such an experience underscores our need for various 
fomnsofsupixirt. Opfxirtunities fn receive srnjcfii red training 
are helpful, along with informal meetings. Rodriguez' expe- 
lienoe also says something about our values and our 
requirements as programmers: Before something truly has 
value for us, we must be able to "access" exactly how it 
works. We feel penalized whenever program code or 
language features are inaccessible to us. 

To make a language (or a programming technique) more 
accessible, books and training itiaterials are always valued 
Most of us read several journals each month besides Forth 
Dimensions in order to have better access to state-of-art 
practices and techniques 

Tom Saunders of Sigma 3 Engineering in Edmonton 
(Alberta), Canada requested th^ FIG members participate in 
a survey so that every Forth diatect could be briefly outlined 
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I and its design goals described (Letters, FD Xni/2). This 
comment prompts me to quesLion wlicliiet" lliere a way for 
us to pursue our diverse Foiths and diverse programming 
techniques with any real hope of improving Forth's commer- 
cial standing - which currcniK' seems to be flat growth for a 
relatively small number of businesses. Und<jubLed]y, our 
diverse solutions will also lead io many breaktJirouglis. Rut 
ignorance of these breakthrough techniques (or innovative 
Forth dialects) is widespread. How many receive only limited 
use in a handful of products, if that? Without doubt, the Forth 
syiaems ramparisons offered by Guy Kelly have tielped 
increase cor awareness of the differences between sook; 
popular Forths (/-PXTTT 'ft). 

Based on Qie comments 1 scanned, our concerns ate 
becoming focused upon management t^es and upon the 
prominence nf the development environment As we foais 
nn issues such as supfxin and training, we broaden our 
concept of the total cost of software. Our ability to profit from 
software will require us to be sensitive to all the issues of 
producing, deploying, and maintaining software. 

Among its c redits. Forth naively facilitates fast prpgiam 
development and easy program modification — two of the 
chief advantages claimed by makers of various deveio[^ ment 
tools. Even without any of the extras that are part of a 
contemporary development environment, Forth systems are 
alleged to be perfectly sui^ to most programming needs. If 
you can make this claim, fortune may be smiling upon you. 
Those of us who require database languages with graphical 
interfaces may disagree . 

We've also heard strong statements about how much we 
value our complete understanding of Forth, including the 
operation t.if its implcmcniaiion ct.ide. In light of this, consider 
another of John Wavrik's comments. Here he questions where 
the proposed AhK Forth is headed — which he believes is away 
from Forth's past Oficnncss arid low-level accessibility: 

"My claim is that Forth has traditionally been a language 
which allows the user to build major language features. 
(There isFoith literature discussing variant methods fordoing 
local variables, exception handling, 
adding obfivct orientation, etc.) 
Forth has been a toolkit for build- 
ing applicatfon-oriented languages. 
The ANSI team is heading in the 
direaion of irKluding some im- 
portant features Oocal variables, 
exception handling, etc.) but re- 
moving the ability to build such 
thdngs" (Bestof GEnie, FDiaWS). 

I would iike to thank everyone 
who made their ihougliLs known 
by submitting them to Forth Di- 
mensions or to tU-nie's 1-onh 
lioundTable. Througli tliese fo- 
rums, wc all become belter in- 
formed about the concerns feeing 
our community. 

—Mi&eBola 
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Asubjecl in<kxto i-onh Dimensions contents piUilished from 
May '91-April '92. Prepared by Mike Elola. 
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fife© ®aD©ft IVwm®!? 06 

Tiranscendental 
Compilation 



Conducted by Russell L Harris 
Houston, Texas 



Among the things which make Forth unique among 
ajnipiJiur hiiguages h Uic process orniclacoinptlaiion. Also 
known by ihe lerms target cotnpiUUion and cnm-compila- 
tion, mecacompikljon is, in simplest terms, a process by 
which an existing Forth sysirm is used to generate a second, 
tailor-made FoiOi system. !n ibis respca, metacompilation 
transcends the usual prrK-ess of compilatioa The new 
system may be a complete development enviionment, itself 
capable of metacompilation; it may be a ROMable applica- 
tion, having only ihc ha rest cvsenfirils tn :)ccnmplish a 
Specific and limited task; it may be an end-user application, 
with support for terminal and disk I/O, but without editor, 
assembler, and compiler, Tlie new .system may run on a 
machine identical \n the development system on which the 
metacompilation takes place; may run on a machine with 
word size, instmction .set, and resources quite different from 
those of the development system; ii may run from ROjM on 
an embedded single-board computer. Whatever the case, 
metacompilation enables the programmer to create the new 
s^temwShaminunumeiqsendituieoftimeandeflfbrt, while 
giving him a degree of control he otherwise would have only 
in assembly language. 

Daily association with Forth 
devotees via a local telephone 
call Is an experience you 
shouldn^ pass up. 

The Emperor's New Ootbes 

Before proceeding with our discussion of metacompila- 
tion, it is necessary that several concepts be explained and 
that a number of terms be carefully defmed. The matter of 
nomenclature Is complicated by two factors. First, everyone 
seems to have his own name for a given item. Thus, what I 
call a nucieusyoa may call a kernel. Secondly, there's always 
someone Hying to get rich by robbing otliers, specifically, by 
getting tlie government lo hold a gun to everyone else's head 
while he, the robber baron, Idols tlieir p(x.:kel.s. If you tx;lieve 
in the non-eniity commonly termed "intelleaual properly," 
be sure lu piumpily send mc a sut^tantial fee before 
proceeding fuitlier in Llii,s tuiorial series; ulhcrwi.sc, 1 will be 
forced 10 dispatcli a team of Uiugs wiili instructions to 
repossess my "property." Cfhose of you who have not bowed 
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the knee to the idol of "intellectual property" may, with my 

blessing, prtKCed witiioui charge.) 

1 plan lo publiah a papei on tlic subject of "inLclleciual 
property"; mean while, you might wish to visit the diildien's 
section of your local library and rt^ad again the faerie tale "The 
Emperor's New Clothes." H > ul[ care to research the matter 
of "intellectual property," I suggest you btigin with the 
treatise entitled The Law, first published in 1850, au tliored by 
the Frendiman, Frederic Bastiat (1801-1850). 

Nomtenclature 
CompUatkm is simply the process of writing to a dictio- 
nary,'. Compilation is a routine oca irrc nee in Forth develop- 
ment envircinmcnts, and also takes place in some I-orth 
applications. Tiaditionally, on a disk-ba.%d Forth develop- 
ment system, thebootstrap loader or operating system brings 
up a small Forth nucleus of approximately 8K bytes. This 
nucleus then compiles or "loads" the t^lance of the Forth 
system, including an application, if any. 

Forth words are typically classified into categories, much 
as routines in C are grouped into libraries. Categories outside 
the nucleus are termed electives. The set of electives to be 
loaded vat'ies with the Forth implementation, the preferences 
of the user, and the tequiremenLs of the application, if any. 
When memory is limited, one need load only those electives 
necessary to support the applicadon. Electives commonly 
loaded include those for priming, editing, and disk opera- 
tions, in addition to ilie more basic functions such as dock, 
calendar, and double-lciigih ai iihmelJc, 

Ihe process of loading electives and applications is 
nothing other than compilation. Note, however, that loading 
the nucleus is not properly termed compilation: thebootstrap 
loader or operating system simply copies from disk to RAM 
an C3cccutable image. The source blodcs which ccmiprise 
eleoives and applicatioas contain l>oth high-level anci code 
words. The high-level words are compiled by ilic colon 
compiler, ^*ile the rode words are compiled by the 
assembler Tlic resulting cxeoitable code is compiled into 
the dictionary of the system on which the compiler and the 
assemliler are executing; i.e., electives and applications are 
Gompiledinto the (pemting entHronntent. Thus, Forth words, 
both hi^level and code, may be executed immediately after 
they have been compiled. 

Hie meta in metacompilation indicates that the code 
being compiled is destined for anenvironmeni other than the 
opcratin.? environment. [ 'nle.ss (he application environment 
is substantially iJic same as liie development environment, it 
will not be possible to test metacompiled code within the 
development enviromnenl F.ven iflhe development system 
and tlie applicaiion hardware share llie same wordsiiK; and 
insiruciiun set, the complement and physical addresses of 
memory- and (x;ripherals may dilTer between the two systems. 

Ratiicr ilian attempting to meta compile into tlie operating 
environment, one generally scb aside, somewfteie on the 
development s> stem, an area of KAM or disk to nsceive the 
executable application code. Onoe metacompilation is com- 
plete, the code niiy Ix: trans lerrcd elsewhere Fur testing. 

In this and future columns, the terms cotnputer system, | 
l}anitmre, and machine are .synonymous, referring to a | 
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physical tonipuier sysicni, including peripherals and the 
opc: rating system, if any, 'Ihc term entAwnmentwSlhe used 
botli for hardware and for software; the context will make 
clear which meaning is intended. 

In jnciac'Hiipilaiion, there are, in fn'inciplc, two computer 
systems. The hardware on which the metacompiler runs is 
termed the devekpment system or host. The term develop- 
ment system is very appropriate for thic computer u.sed to 
write or develop an application, but tlie term i.'i cumbersome, 
and I am open for suggestions as to a short yet descriptive 
name. The hardware on which the mcta compiled applica- 
tion is to mn is termed the applicalion hardwan; or target. 
Again, (plication hardware is descriptive, but is awkward. 
Any suggestions? In some cases, the development system 
and the application hardware are the same machine. In our 
adventures, the development .system will be the IBM-PC and 
the application hardware will be the 8051 -family single- 
board ccMTiputer p»<esented in the last <X)lumn. 

A Forth metacompiler is a Forth application which ruas on 
a development system, 'ilie metacompiler operates on forth 
source code in order to produce executable appl ica liou cocie. 
The source code may be a mixture of high-level and code 
words. Typically, the source code is read from disk and the 
application cotic is compiled to disk, bul the application code 
may be compiled to RAM if tlie development system has 
sulHdent available memory. Alternatively, the application code 
may be compiled directly to read/write memory in llic applica- 
tion tiardware, over a data link (typically, a serial line) connect- 
ing the development system and the application hardware. 

If the development system and the application hardware 
have different instruoion sets, the term cross-compilation is 
sometimes used instead the more general term metticom- 
pilation. 

To Be Cantlnued... 
I^et us assume we have a Fonh environment whidi does 

not include the c apability of metacompilalion. What must we 
do in order lo add thi.s capability? Wlial protjlems and conflicts 
dowefeoe?ITowdowe solve andresolve them? What vanations 
are possible and usefuL' Sulwequent col u mas will adtfre.ss 
these matters, as we wotk our way through development of 
an 8051-^unily metaconqiiler which runs on the IBM-PC. 

Collegiate Endeavours 
A fecet of university life 1 find compelling is the daily 
association with fellows who a re pu rsu ing the same or a similar 
cf)urse of study, A university cxjx'rience in which one limits 
himself to attendance at leaurcs, laboratory scssioiLs, and tests 
might as wdl be undertaken by concspondcnoe or by 
attending night .school. It is the opportunity outside the 
cla*ssroom to discuss, to rca,son, to hone mind against mind, 
tlrat seK apart the univeisiiy. In the collegiate environment, 
you can always find somec»ie who recalls points you failed to 
note, someone who sees tfie underiying concept through 
detail you find im penetrable, someone willing to scrutinize 
your logic or verify a solution, someone content simply to 
listen as you think aloud, someone with an alternate perspec- 
tive and approach to a jirohlem which has you stumped. 
I Conversely, you provide like function for your fellows. It is a 
I give-and-take af]^, somewhat like a dimbing expedition, in 
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whidi fxjssession of the secure position is constantly pa.s,sing 
from one member to another as prc^tess is made. 

While fcwofuscanafforda return, cvenfor a brief period, 
to full-time academic study, and few of us have employers 
which fo.stei an interactive academic environment in the 
workplace, there yet remains a collegiate expetienoe afford- 
able and accessible to almost everyone. For a few dollars a 
month and a few dollars per hour of connect time, one may 
gain lite potential of daily communication with a large 
number of individuals pursuing a common goal. I am 
.speaking of the Torth Interest G roup (FIG) bulletin board and 
rcal-tirne FIG conferences, cuj reruly hosted, along with the 
HG software library, on the GEnie computer nctwurk. 

The opportunity of daily association with fellow Forth 
devotees across the nation, via a local telephone call (Look 
Maf No tolls!) is an experience ynu really shrmkln [ pass up. 
The monthly access fee buys unlimited electronic mail, 
which is great if you need to communicate directly with 
.specific individuals. An hf)urly charge applies once you 
move to the Forth "round table," but it is at the round table 
that you gain access to ihe FIG asmmuniiy at large. 

Once you know your way around GEnie, you can log on, 
check the FIG bulletin board for new messages in a given 
category', and lt)g off all in roughly a minute, .so there is lit lie 
excuse not to look in on a regular basis. You can download 
from GEnie a fieebie utility called Aladdin with which PC 
users can automate the process, thus eliminating the time 
normally consumed in hurdling menus. 

I xjs^ readers of this column and every member of FIG to 
get a GEnie account and join us in an environment of mutual 
support and exploration. Our sysops have providcLl a bulletin 
bCKird category, No. 19, for aaivity related to the On the Bade 
Burner" column. Under that category, several topics have been 
started and others can be added as needed Readers having 
questions need to [X)st those questions under the appropriate 
topic of category ly and check back frequently, if rKX daily, for 
response. Readers knowledgeable in varkxis areas are re- 
quested to fierjuenily check topics in which they have 
expertise and to provide answers wherever p>ossibIe. lieaders 
having better or alternate solutions to common problems are 
invited to share their insight with the rest of us. 

The gist of it is fliis: by way of the GEnie computing 
network, die FIG round tabk: i >{x;ii.s liie door to interaction 
on a scale which would otiicrwisc be impossible and on a 
frequency which would otherwise be prohibitive. Readers of 
tliis column who are following itie ongoing tutorial need tl>e 
type of support which only a collegiate environment or a 
resource such as a nation-wide, local-access bulletin board 
can provide. To readers who have mastered subjects and 
techni{]ues covered by tliis column, tlie i-IG round table 
offers the opportunity to share itisight and lo lend a helping 
hand. Everyone is welcome; everyone is needed. Won't you 
join us.' 
R.S.V,P. 



Russon hiarrj& is an ind^pend^l consollanl providing efigin^ring, progr^vn* 
ming, and tochnical doc umf^^nUi lion services lo a variety of irxJustrlal clionts. His 
main interests lie in writing and leaching, and in working wiltiemtjedded systems 
in trie (ioidsol insirumentationand machini.; cor[rLJi He can be reached by phone 
at 7 13-46 1-16 18. by fax at7 13-46 1^1081, by mailaieeogCodard^Or.. Houston, 
Texas 77066, or on GEnie (address RUSSEtl.H). 
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